LABEL 00O0OO00OPRINTEK00175098CC LXEClTL C« JtC F/RE AD; F iLt SUURCEF lLE = ii YMBOL/OlMA 1 l\T ;END«- 



OBJECT /READ 
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3 '^MBo'^/oLMi^i/^ 



• « 
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COMMENT ONLINE/MAIM RLVlSlU f LB 1973 T.M.fc.. & M.J.G; 
COMMENT: * TITLEI B5500/H5700 MARK XIV SYSTEM KELEaSE 

* FILE ID« SYMbGL/nLMAIM TAPE IDi isYWBOL^/F ILEOOO 



5*150100010000 
* OOOiOlOO 

* oom oioi 



* THIS MATERIAL IS PROPRIETARY TO BURHOUGHS CORPORATION * OOOlOlOg 

* AND IS NOT TO BE REPRODUCED* USED# OR OISCLQSEO * 00010103 

EXCEPT IK ACCORDANCE HITH PROGRAM LICENSE OR UPON * OOOlOlOq 

.,„,, .,,^ -,.^,.,. „■- .. ^ ,.,.., ... OOOlOiOb 

00010106 
00U10107 



* WRITTEN AUTHORIZATION GF THE PATENT DIVISION OF 

* BURROUGHS CORPORATION* DEIROIT* MICHIGAN a8i!32 



BEGIN 



COPYRIGHT CO 1971# 1972 BURROUGHS CORPORATION 
AA320206 AA386657 



*; 



COMMENT 
COMMENT 



PATCH LEVEL IN COHPIlLR HEauING a1 UA 1 700U0******; 



THIS PROGRAM HAS THE FOLLOWING BLOCK STRUCTURE; 



(SEQUENCE NUMBERS IN PARENTHESIS) 



-**BEGIN 



f.?(jnOQ) 



* Outer block declarations 

* ■ . 



O UTER BLOCK CODE FOR Hi\UlNG INPUT UlE (5820000) 



* 
* 



RETURN* 

*»RrfiiN 



(6090000) 



SCAN BLOCK DLCLAHAriUNS 



* 

* 
* 



* RETURNU 

* 



(20910000) 



* PROGRAM CONTROL CENTER 

* READIT: (21080000) 



* 
* 



CONTROL! 

CONFIDENCE' 

PIRRORI 



(21100000) 



MCCLCOMPILER! 
**BEGIN , 

Hr 



(21230000) 
(21270000) 
(21310000) 



(21900000) 
(21920000) 



* 
* 
* 



* 






* 
* 
* 



* SIMPL COMPILER DECLARATIONS 

*■■.'. 

* SlMPL COMPILER CUUL 



(32740000) 



**END 

FIMShoff: 



* 

* 



RUNTAPETESTS« 
MCCLRUNf 
., **beg,In:.^"' 



(32780000) 
(32600000) 
(32920000) 
(33040000) 
(33170000) 



* 
* 



* 
* 



* SIMPL InTeRHHETFK BLOCK OEClARAUONS 



* 



* SIMPL KMlLftPKETEH BLOCK CODt 



oooioioa 

00010109 
000200 00 



00021000 

00021005 

■00021010. 



00021015 
00021020 
00021025 



00021030 
00021035 
00021040., 



00021045 

00021050 

-00021055, 



00021060 
00021065 
Q00 2107-Q, 



00021075 
00021080 

ooaaioflS- 



00021090 
00021095 



jMlPil 



0C021 
00021 
00021 



00U21 
00021 
00021 



00021 
00021 

00021 



00021 
00021 
00021 



00021 
00021 
00021 



00021 
00021 
00021 



0£. 



05 
10 
15. 



20 
25 
10- 



35 

40 

45 



50 
55 
60 



65 
70 
75 



80 
85 

90 



0002U95 
00021200 
000 2 120 5 



00021210 
00021215 
00021220 



00021225 
00021230 
00021235 



li 



>T 



* DONf 



(/4/466OOOO) 



00021^45 
Q002125Q 



* **END 

* RUNDISKTESTS: 



(4/18/0000 
(44880000) 



00021255 
OOU21260 
0Q021g6'-. 



**BtGIN (4490U0OU) 

* 

* DISK TEST BL,OCK DLCl^AHAT IONS 



00021270 
00021275 
000^1 260 



* • w <• Hi « ■• w <B at w 

* DI S K T E ST B LO CK CQP E 



f^SQilOOni 



00021265 
00021290 
0n02l29'i 



10 
11 
12 

13 
14 



* **END 

* ALLDONE« 
* *EXIT« END, 



(b521U000) 
(552dUO0C) 
(552/0000) 



00021300 

OOU213O5 

JiaO<!l310 



17 
IS 



19 
20 



00021320 
0G02U25 
QQ0213 3Q 



INTEGER 

ERRORS* 



X ENR QR^ CnNT Al H;? TH E TOTA L N i ^ M fe JER Q F ER ftQHS 



XENCOUNTERED SINCE READING THE LAST SET 
XKAINTENANCE CONTROL CARDS 



OF 



00030000 
00040000 
00040005 



FTLEAOnR* 



00040010 
00040015 
00050000 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

3S 

36 

37 ~ 

38 



^CURRENT DISK ADD«ESS (DISK TESTS CNLY) 
TEST* XTEST CURRENTLY BEING tXtCUT EH" ALSO HOLDS CURRENT 
XSESIENCE NUMIJL H D UN JN G S IHPL CUHPI LATIQ N 



00051000 
00060000 

noo<&oi 00 



STOPPER* 

XUSEO 



TO TERMINATE 
KiFS SACiE 



CURRENT TEST OH TESTS USING 



00070000 
00070010 

00Q70020 



delay; 

IDELAY TIME BETWEEN i/O-S 



00070030 
00070040 



%************1t*i>*ii***1,**lii,*l,iii,iii,**ii***iti,*ii**i,*1,-i,**i,'i,i,i,*i,1,i,l,i,1t'k*-k*i,*i,**i,i,OQQQ0Q0Q 



FILE CFILE 11(2*10)* 
MAINT (2*10)* 
LINE 1(2*17); 



00090000 
OOIOOOOO 
OOUOQOQ 



k************************************iii******************#******^****OGl60000 
SWITCH FILE OUTFILE:=LlNE»CMLL*LlNE*LlNE*CFlLt* 0Cl70000 

SWITCH FILE INPUTFILL' = CF1L£*C(- 1LE*MAINT; 00160000 

^************** •*****************•*<****** 4 ********************** ****002 00000 



SWITCH FILE INPUTFILL' = CF1L£*C(- 1LE*MAINT; 00160000 

%***•********•*******#♦***************♦******♦*#******♦************* ****002 0000 
DEFINE 00210000 



DEFINE 

OUTFlaQUTFlLEtOUTSWITCHJ** 



00210000 
00220000 



to 

41 
42 



PATCHsPATChFILEtPATCHSWITCH]#, 
INFlLE*INPUTFlLLtINSwiTChJ», 
TWXaCFlLEif* 



00230000 
00240000 
00250000 



spo^criLft* 

DSK«TAPE#* 
LFILEpHNE** 



COEFlLEBCaDEFlLE»; 



00260000 
00270000 
00280000 



46 
47 
•8 



. 00290000 

FORMAT DONETESTS("QN-LINE MAINTENANCE TESTS COMPLETED")* 00360000 

TMUrMMf itTKiPtjT nrwm iihikWnimiv«.»M . rintannnn 



49 

50 
51 



INVCMNCINPUT DEVICE UNKNOWN*"), 
WHATUNIT{«CR OR SPO«-")* 
STARO^C**"))* 



00390000 
00400000 



NOISERCNOISe DN EKROH«-"M05("#"))* X140300«nOOO 

TERMC"0NLINE/MAINT TERMINATED BY OPLNATOR ")* 00*20000 



92 
i3 
54 



X********************«*******««*<ln 



55 

56 



DEFINE TERMtNATEsBEGTN 



WRnE(0UTFHDBL3*TEHM); 

oatime; 



00*40000 
00450000 
0Q46000Q 



>r 



9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 

is" 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31™ 



32 
33 

34 

35 

36 

37" 

38 

39 



40 
41 
42 
43' 



45 
(6 
I 47 
48 
49" 
50 
SI 
52 
53 
54 
55 
56 



BL=BODLEAKa# 



GO txn; 



WRiTENOISEwBEGiN 



004?0000 
*140300«80000 

:ti50iQoaaoiQQ 



END*; 






1140300481000 
*l«0300«82000 
Kl4Q3004a300Q 



XHOiOO'Jtiaooo 



%*********** **^'^l*■k1l^l*■k■k***■k^,i,i,^,^,*■^,^,^,*^,1,^,^,i,1,i,^,^,1,1,*^,1,^,1,^,^,^,^,i,i,^,^,^,^,^,^,^^,^^,^,^,^QQi^(fQQQQ 



%THE FQLI OWING VARlARLIr;S ARE USED F LJH TEK^PLhAKv .STrRAG^: 
RFAL JtJNk# 



JUNKf 
NTl, 

NT Pt 



00^9lOQn. 



NT3, 
NT4# 
NT5r 



OObOOOOO 

00510000 

■fl05?Q0n0 



00530000 
OOii^OOOO 
00550000 



^*f>K 00560000 

X************ ************************ ******J,1^*****v^^*^*^^(^^*^,^^^^^^,^J^^^^^QQ57000C 

INTEGER ^ — — _ __ QQSeooon 



MIX 



TEST I NX, 



XMIX INDEX OF OMINE/MAINT 



XINDIX INTO TESTA9RAY FOR CURRENT TEST 
BEGINAOOR* 

XLQWEST DiSM ADDRESS TO BE TFSTED 



QQSeooon 

0C5V00C0 

oosviooo 

059 2000 



ENOADOR* 

XHIGHEST DISK AQDrtESi TG BE TESTtu 
SEGaz- 



00592010 
00610000 
00611000 



XNUMBER OF SEGMENTS TO BE TESTED 
COUNT* 

XUSEO TO STORE THE RESULT F RHk THE SCAN RQUTItyE 



006iJ0000 

006iil000 
nn6:jnnno 



LOCKWORD# 



XDURING DISK TESTS* IT IS USED TC COUNT 
XNUMBER OF SEGMENTS hHITTEN CR READ, 



THE 



X150100631000 
00640000 
0Q64010Q 



XIF BIT 47-N 

XN-TH SET IN 

ZONEWORO* 



IN this: WORD 

THE EU UNDER 



IS SET THEN THE 
TEST IS LOCKED OUT 



00640200 
00640300 
00641000 



XlF BIT 48-Z IN ThiS WoRD IS S^T, ZQ^E Z 
WBUFF* 

XLENGTH UF A LINE OF UUTPUT U N 



00641100 
00641200 
00642000 



UNIT* 



XOUTPUT DEVICE (IN WORDS) 
XUUN OF THE UNIT UNDER TEST 



IS TQ BE TESTED 00642100 

00660000 
THE SPECIFIED OO66Q1OO 



TINU» 
lOFT* 



00660200 
00670000 
00670100 



SSHARDWARE UNIT NUMBER OF THE UNIT UNDER TEST 



XTiME(i) WHEN THE LAST I/O FINISlnEO 
DKTVPt' 



00680000 
%150100680100 

00680300 



X»l IF 20 KS, 



INSWITCH. 

XUSED 
QUTSWITCH* 



*2 IF JO MS 



AS INDEX FOR INPUTFILE 



XUStD AS INDEX FOR OuTfILE 

cswitchv 

XUSEO Af INOEX FQi CQNtROLFlt.g 



PATCHSWITCH* 

XUSEO AS 
LSWITCH* 



00680400 

O0690O0O 
00690100 
00700000 
00700100 
00710000 
O0710100 
00720000 
00^20100 



INDEX FOR PATCHFILE 



XUSEO LIKE OUTSWITCH DURING COMPILATION 
SEGNO' 
-_ INEXT SEGMENT TQ BE WRITTEN IN COOEFlLE 



00730000 
00730100 
00731000 



007 31100 
00740000 
00741000 



1^ 

24 

3 
4 
54 

6 
7 

si 
a 
10 

11 < 
12 

13 

14 4 

15 

16 

17 < 

18 

19 

20 I 

21 

22 

23 I 

24 

25 

26 I 

27 

28 

29 f 

30 

31 

32 I 

33 

34 

35 1 

36 

37 

38 t 



42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



11 



55 

56' 

57 



>T 



NUMBEROFTtSTS^ 

XLARGEST TtST 
I NPy „ 



NUMBER ALLUiNfD 



OO^bOOOO 
00?bOlOO 
007^0000 



XCORE ADDREi>S OF IIvPuTBUFFER 
LASTSCAN* 

XLASTSCAN 



00/70100 

XH02007nOOO 

CONTAINS THE ADDRESS PF THE NEXT CHARACTER 00771100 



XTO BE SCANNED. 
FIRSTSCAN* 

XFIRSTSCAN CONTAINS [hF_ AODpjLSS CF THE FIRST CHARAC 



Xia0200771200 

*U0200772000 

iLfi Q Q772 1 Q Q 



9 
10 
11 
12 



KNON-BLANK) SCANNED, 
ACCUMULATOR* 

XCONTAINS THE AOPBESa WHERE THE NEXT 



X140200772200 
«140200773000 
%n0200773l00 



XCHARACTER 13 TO 3E SAVED. 
SPECIALCH8, 
XCQNTAlNS THE nQN-ALPHa CHARACTER SCANNED BY SCANIT 



*l«0200773200 
SilA0200774000 
a; H 02 0077aioo 



14 

'.6 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

36 

36 

37 ~ 

38 



EMPTY* 

% OCTAL 77777 
$i>ET OMIT a NOT TUNEUP 



X150100774200 
X150100774300 
X150ieQ774350 



SDElTA* 

XEXPERIMENTAL DELTA FACTOR 



SPOP OMIT 



%lbQl0077'^^00 
X15U100774410 
Slil5C^lQQ774<t20 



error; 

xused to store ersoh number gr number qf errors 
xon current test ________^__ 



00780000 
00780100 
0Q7B0P0Q 



%*********************•******•************************************ 



LIST 



TESTL(TEST)* 



******007^0000 
%iaOM00791000 



STOPL(ST0PPER1* 
ERRORLC ERROR )^ 



XI 404007*1 200 
XI 404007 9 1 300 

%**)>♦** *»»*** ^nfc**it** » » *iii,*1,lt****1lit*****1i*1tii* **************** ******** ■lt**i,0Q7'i20Q0 



BOOLEAN 

TSS, 



XTRUE WHEN RUNNING OiNDER TSSmCP 



00800000 
QOBOOlOU 
QQ 800 20 Q 



testmask* 

xif bit 47-t in this word is set* test 

XIS SCHEDULED (DISK TEStS 0NLV)« SEE 



T IS SCHEOUL 
BELOW FOR 



XI&0100800300 

ED 008G0400 

X150l00a00500 



XEXCEPTIONS 

ndmask* 

XIF BIT 47-T IN THIS WORD IS 



*150100800600 

Xlb0100800700 

SET* TEST T IS SCHEDULED 008UQ800 



XWITH LIMITED OUTPUT (USED WITH TESTS 
RQMaSK* 

Xlr SIT 4y»T IN THIS WORD IS SET* TEST 



3 & 13 ONLY) 
T IS SCMEQUL 



X150100800900 

X150100801000 

ED 00801 100 



41 
42 
♦3 
44 
45 



OCTL 



XFOR READ PASS ONLY (IF RG^^ASK NLU THEN TESTmASK ~ 0) 
XD I SP I AT PATTEBNS t JY 3-BI T g CTAO fc ^ ,.„__ 



00801200 
00810000 
OQQI OI QO 



XDISPLAY PATTERNS IN BCL COOE 
NQWRT* •■ ." ••- ■>■ -.. '^ 



00820000 
00820200 

ooaaoflon 



46 
47 
•8 
49 
50 
61 
S2 
S3 
54 
55 
56 
57 



xno write tests to be perform 
wrtlock* 

XPART OF TEST AREA (UR TEST U 



ED 

NIT) LOCKED OUT 



00830100 
00840000 
00840 100 



DONETOG* 

XNO MORE REQUESTS TO PROCESS 
AREACLEAREO* 



00850000 
00850100 
00860000 



XTEST AREA ON DISK OCCUPIED 8 
FILEOPENEO* 
_„_^ XO UTF I IS n PffN 



Y TEST FILE 



00860100 
00870000 
00 870 100 



TWXOUT* 

XOUTPUT IS TO SPO OR TWX 
C QMPARE DATA * . 



00880000 
00860100 
QQQ9Q000 



• • 



rf 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
)2 



%QATA ERROR ON LAST NtAD OPErtATION 

abrev* 

;tABR£ viATE :n o utput o\ cuhh£ :n. t test 



IGNORERRORS* 

XNO ERROR OUTPUT ON CURRENT TEST 
NOISEONERRDR* 



OObVOlOO 
00891000 

^iSQiQotivnQn 



00892000 

00892100 

!)!140300893Q00 



LST; 



XNOISE ON ERROR ON CURRENT TEST CUE. tINE OF "»") 
^COMPILER LIST JPTI0I\ IS SET 



JUNKB# 

XTEMPORARY 
COMPILING^ 



itiaO300893lO0 

00900000 

00900100 



STORAGE... 



00910000 
00910100 
009;; OOP . 



XSIMPL COMPILER RUNNING 
SAVETOG* 
XSaVE INPUT TO SCANNEH 



009^0100 
00921000 
00921100 



13 
14 



IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2B 
26 



SAVING* 

XA DEBLANKED COPV of ACi INPUT IS BEING RETAINED 
CQNF» 



XTRUE WHEN RUNNING UR COMPILING a CONFIDLNCE TlST 

I 

x'page output oevice between errors 



X140200922000 
X140200922100 
*140200923000 



page; 



Xl«0200923l00 

00930000 
00930100 



X'PAGE output OEVICE BETWEEN ERRORS 00930100 

X********************** *♦ * * * * * * * * * * * * * * * * ************** * * * « ***** * * * * ****00940000 
LABEL 00950000 

. RETURN-* ■' ' " ■■':.; ' . '. " :.■..:■•.. ■■"/■ . ' ' - .. 00960000 

ALLDONE* 009i'0000 

EXIT' 00980000 

RUNDISKTFSTS; ^ ^, . nn9gQnn o 

X ************************************* ^****** A* ********************* ****oioooooo 
SAVE ARRAY OlOlOOOO 

LQGRUFFERrOllQ]* "' ' "" '■•-"• :,' . /'' ■ ^ . ^ nioiinnn 



27 
28 
29 

30 



_ , _ _ _ ._ _ __. : . ^ : — _ — ___ UlUllOOO 

XCONTAINS TAPE OR OISK COnF TEST RESULTS TO BE LQGGEDX14040 10 1 1 lOO 

01020000 



INPUTBUFFER[0«10]' 



XCONTAIKS LAST CARD IwAGE HEAU 



jjj^ia^ 



31 
32 
33 

34 

3S 

36 

37" 

38 

39 

40 

41 

42 



JUNKBUFFtRC0J6O3# 

XTEMPORARY STORAGE ARRAY 

testbuffercq;5]. 



xaccumUlator for scan houtine 

TRAnSLATEBUFFER[0:7]* 

XtRaNSLATION table fun INT-flCL TRANSLATOR 



01030000 
01030100 
01040000 



45 

46 
47 
48 



49 

50 



51 
52 
53 
34 



55 

96 



X******** 



ARRAY 



0UTBUFFE.RC0«2V3; 

XRESERVED FOR BUILDING OUTPUT MESSAGES OIO6OIOO 

*»*♦*»*******»***»*•****•*•**»***♦**•***•***»»*** * * % * »**»»**** <n 107 0000 
Y oiOflOnnn 



O1O4O1OO 
OlObOOOO 
01050100 
OIO6OOOO 
01060100 



TESTARRAY[0:63]; 
X_ TE STARRAYITEST3 " 



X 
X 
X 



tl»23«0» FULL OUTPUT 

•1» ABREVIATEO OUTPUT 

«2« NU OUTPUT ' 



01080000 
01090000 
Ol OVO lQO. 



X 

X 
X 



X 

X 
X 



S3' NUISE UN ERROR OUTPUT 
[ 3J 13 s NUoATA 
[48 1] g f^EAO ONLY 



01090200 
01090300 
010^0310 



t 5»133 « NOT USED 
tlBI93s«AlT TIME BETWEEN I/Q-S 
r27t63sTE5T NUMBER 



X140301090315 
X150101090320 
X150101090322 



X [CF 3*(^UMaER CF TIMES TEST TO BE RUN 
X DURING COMPILATION, TEST ARRAY L TEST 3 CONTAINS 
X LUlJaQ TEST NOT YET ENCOUNTERED 



XlSOl0l090324 
01090330 
01 990340 



01090350 
01090400 
01090500 



X 
X 

X 



31 TEST FOUND 
tCF3 » RELATIVE ADDRESS IN ROOT SEG 
CONTAINING BRANCH TO TEST 



01 090600 
OIO9O700 

oiovoaoo 



56 
52 



>r 



12 
13 

14 
115 
16 
17 
18 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

Si" 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 

14 

45 

46 

47 

18 

49 

50 

51 

52 

53 

54 

S5 

S6 

57 



% 
% 
% 



iFF] = 1 IF TEST PtRFORyS VtHll C 
OR E-KASt OPERATIONS 
0^ OTHERWISE 



DEFINE 
IOMaSk»3*'20000QOOOO'*«i> Q^ 



LOGKEYs(COREADDRCLOGtJUFFEHi;i]))#» 
SSET OMIT = DEBUG 

LINKlTUP-LINKUPf^l^Q & COf^t-AnoK CHinHUFK FR m ) f CTF 3 ) », 



45ET OMIT » NOT DEBUG 

LINKITUP»#* 
tPQP OMIT QMTT 



IOCOUNT=PATCHSWITCM*» 

SEGCOUNTsLSWlTCH^* 
MAXLEVELS*9ili> 



MAXPATTERNS«128*» 

MAXBUFFSsa«# 

SEGSIZE»512<i# 



X14040 







MAXSEGSs64)», 

NUMBER0FDISKTtSTS=14*» 

NUMBER0FTAPET£StS=10#^ 





*15010 





CF»33»15## 
FF»18J15## 

SFwano** 



HF=3« 15** 

SCF333J9I* 

CTCs33t33U';#* 



CTFsl8l33Jl5*# 
FTF»18«18J t5*» 
CTSF«at38M0#> 



CTHF»3»33»15*' 

CTSCF»33»39:9»; 

INTEGER STREAM PROCEDURE CWEAOQRCVAR); 

BEGIN SIlaVARi COREADOR « *SI I END; 

STREAM PROCEDURE CLEER(A,L)/ VALUE A,l; n 



BEGIN LOCAL Ll; 

sUsLOc l; si; = si-t-6; di;=loc ll; uitsDi-i-7; ds:schr; 





0. 




END; ^'^ ^ • ■•■••'■ - -'-""''^ • ■■ -■. ■ , ^ ■ ' 





Di«»Ai osjs8 LIT " "; siisa; 

LL(0S;s32 WDS; DSIs32 W0S3; UStsL rtOSi 



DEFINE ClEARCCLEAR1*CLEAR2)= 

CLEER(C0READ0H(CLEAR1 )*ENI I ER( CLE mK2- U )» ; 

^ ^ lAi ji. ^k ^ Jt J. ^ u. JL ^ u. ^^ ^ J. ^ ^ .1. j^ ^ _t J. .i. .1. a. ^ J. ^ J a. jl j^ ^ ^ ^ ^ J •!. ^ .^ .: 



* *,* *■* ***** * *'* *'#'* * * * * « *,;« **•****#«**« 



%************************* ****««^.«w>.«vw>.««,FW«M 

REAL STREAM PRQCEOURE OECMaLCNR); VALUE NR; 
BEGIN 



END; 



SIt=LOC nr; 

Di:*LOC decmal; 
DS>»8 dec; 



******>*o 






X********** ***#*.:* * * ****** t * **** * *"* ** * * *.jk''* *"* * * * * **' *: * * * * * #* * * » * *;* ^.* 



INTEGER 



FSTERR' 

XInDEX of FIRST WORD In ERROR 
WRDFRR* 



***«'****'0 
X 150 10 



XNUMBER UF WORDS IN LHROR 
CHRERRi 

xnumber Of characters in error 



X15010 
X15010 
itlbOlO 



XlSOlO 
X19010 
Xt50l0 



090900 
091000 

09 1 1 00 



100000 

uoooo 



120100 
120200 
12Q3Q0 



120400 
120S00 
120ft0n 



120700 
120800 
130000 



140000 
150000 
1 60000 



170000 
180000 
190000 



210C00 
220000 
230QQQ 



240000 
2500C0 
2 P0 Q. Q Q 



270000 
280000 
29QQQQ 



300000 
310000 
MOMSu 



330000 
340000 
350J3.fiiL 



360000 
3/0000 
380000 



3VOO0O 
400000 
410000 



420000 
430000 
440000 



450000 
460000 
47000Q 



480000 
490000 
500000 



510000 

siotto 

5 10200 



510300 
510400 
510500 



510600 
510700 
5 1 6 



• • 



>T 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 






BOOLEAN PROCLDURt 
BEG IN 



8lGC0MPARt(N>A,Rj;VALUt 



N'A»B;iNTEnER N*A»B;%1 50 101515100 



X **************************** * * ** * ***** * * * ******************* * * * * * *0 1520000 
BOOLEAN STREAM PROCEDURE COMPABR(NRaFwDS#A#i); JHS0lGlb30000 
COMMENT COMPARES NKOFWDS WQHUS STARTING AT ADDRESSES 0lS30i00 



A AND Bt 
FOLLCWSJ 



IF AN E«RGrt OCCURS^ THt WORD Rt:TURNEU 15 



AS 01530200 
*150101530300 
^5.ig_^0Q. 



Cl8»63«NUM0ert OF WORDS IN ERROR 
C24J123-NUM8ER OF CHARACTERS In ERROR 
[36t63glNDEX OF FIRST ERROR 



C42!6]si 



01530800 
01530900 
01531000 



VA LUE NR QF W nS/ AfB? 



01531100 
01531200 

aii5QiQi5<<Qnfln 



13 
14 



BEGIN 



LABEL BAD*XIT*E»0K; 

1 PC AL TFMP .KBRflR .ERRtJrtS .TS I J 



01550000 
01560000 
01 57 0000 



16 
17 
18 
19 
20 
21 



22 
23 
24 
2S 
26 
27 
26 
29 
30 



Di:=LOc errors; 

SlisA; DIt=Bj 
TftlLY> = t^ . „ 



Di:sDi + 4/ DS:=HT "1"; 



01550000 
015^0000 
Ol^QQnO( 



NROFWDStIF 8 SC«DC THEN 

BEGIN 
pRRnRf.iLiMP UllT Tn riK^ { 



)noQ 



TALLYI=TALLY+i; 



01610000 
01620000 
01630000 



QKJ 

END EL JE 



BEGIN 



01640000 
01650000 



EHR0RC4UMP OUT TO £); TEMPjaTAwLVI 
TALLYt»lJ ERRQRtgTALLY; TAtLYlKOl 



01670000 
01690000 
01700000. 



E5 



TALLY;srALLY+i; 

sh = si-b; puapi-e; 



01710000 
01/20000 
01730000 



31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



8 (IF SC»DC THEN ELSE 
BEGIN 

TSl8»SU SltSfcRRORSj SliaSl-t-SJ 



01/40000 
01750000 
01760000 



ER«QRS»=Si; Si:=TSli 



END); 



END?; 



01770000 
01/80000 
01/90000 



ERRORCJUMP OUT TO BAD); 

GO xit; 



BADt 



01800000 
01810000 
01620000 



TSII=TALLY; SI:=LUC T5i; 5ls=SI+7; 

Dn»LCc comparr; l)i: = di + 3; ds:schh; 

SIlaLOC ERRORS; SI»gSU6; 



01830000 
01840000 
01850000 



ts 

47 
IS 



49 
50 



51 
52 
J3 
54 
5S 
56 

5Z_ 



DSi*2 chr; 

Sll»LOC TEMPI S1i»SI+7;05»*CMR; DSt»LIT "l"! 
XITr end; , 



BOOLEAN T*R; 

INTEGER I*J#K»EC*F^W*G# 



01660000 
01870000 
01860000 



IF N LSS THIN 
BEGIN 

■ ■ ;Al*A.*N*f*,v; 



02000000 
02010000 
02020000 



02030000 
O2Q4O000 
02050000 



BJaB-(NJsA8SCN))+i; 
END; 

f«=empTy; 



02060000 

02070000 
02080000 



FOR Il«C(N4-62J DIV 633"! STEP -I UNTIL DO 
BEGIN 
IF Tl»COMPARR(IF I NEQ Q THEN 63 tLS£ 



02090000 
02100000 
02U0000 



h- 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
il5 
16 
17 
18 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 ■ 



# 
# 



34 
3S 
36 

37" 

38 

39 

40 



41 
42 
43 



45 
46 
47 
48 



49 
SO 
51 
52 
53 
S4 
55 
56 

53_ 



BEGIN 



If j: = N KtQc 63 
A*B3 Tht-N 



ThEK 63 ELSE J# 



end; 

A»=A+63; 



EC«"EC+CK!«REaL{T)),C27»9 3; 
IF F»rMPTY THFN F » »K . t 3ft i 6 J-mi 



02lie0000 
Xlb0lO2l30OO0 

n?HQnnn 



02150000 

02160000 
OP1700QQ 



B:=B + 63ii G5=C + 63; 



end; 



BIGC0MPARE««(CHRE«R:»EC) NEQ 0/ 
FSTERRIalF Fa£MPTY THEN ELSE Fl 
WRQFRR»«W1 .^__ 



02180000 
02190000 
C 2« ?QU 00 . 



X150102390000 
XI 50 1 02400000 



02420000 



END; 

X *********************** *******^*****^*^4^^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^"«;j|JJ^^^ 

LIST DIFFL(CHRERR*WRnERR>FSTERH); :tl50lQ2430 1 00 

REAL PROCEDURE SCANITI U40202490000 

XU0202510000 
»140202a20000 

iti 1,40^025 30000- 



BE6IN 



real stream procedure sc ainawqrd ( testpuffer* 

firstscan#lastscan*specialchr,saving#accuk); 
VALijf Saving; 



BEGIN 

comment 



scanawords commences scanning at firsts'can 

SCANNING CONTINUES HI^TTl A MdM^fii anjK rHAR 



IS encountered. if that CHAhACTtR IS 
A LFFT ARROW* SCANAWQRD RETURNS A VALUE OF 
"77777". FTRSTSCAI N AND LASTSCAN ARF I t-TT 
POINTING AT THE LtFT ARROW, OTHERWISE* IF 
THE FIRST NON-BLANK CHARACTER CFnBCJ IS 
NON-ALPHA* IT IS PL ACEO IN SPECIalCHR. 
IN THAT CASE* FlHSTSCAN tviLL t^OlNT AT 



X140202540000 
XI 40202540 100 
itl40^095AQann 



1140202540300 
X140202540400 
X140pO?540'ino 



THE 



X140202540600 
X140202S40700 
X140202540«0Q 



FNBC AND LASTSCAN WILL POINT AT THE CHARACTER 
FOLLOWING IT. SCA NAwORD RFTUHNS A VALLiF OF 



X140202b40900 
X140202541000 
tl4Q2n254iinn 



ZERO. If TW£ FIRST NUN^-aLANK CHARACTER IS A X140202S41200 
DIGIT, THE SCAN CONTINUES FOR UP TO 8 DIGITS. X140202541300 
THE NUMBER SCANNED IS CONVERTED TU AN OCTAL X1402025414QQ 
INTEGER* AND PLACED IN TESTBU*" FER C ] . Xl40202541'i00 

FIRSTSCAN IS LEFT POlNTII\G AT THE FNBC, LASTSCANX 140202^4 1600 
POINTS AT THE CHAHACIEH FOLLOWING THE NUMBER. Xl 40202541 /QQ 



■ ut i< ■ ^ 1^1 I fic t^iiwMHuicn ruLLU"iiMij int. NUMBtn. a 1 '♦02U23 <4 1 fQQ 

SCANAWORD RETURNS -(NUMBER OF DIGITS IN NUMBER) X140202541600 

FINALLY* IF THE FNBC IS A LETTER, UP TC 16 Xl40202a41900 

ALPHA CHARACTERS WILL BE PLACED IN TESTSUFFER, I140202542Q0 

FIRSTSCAN WILL PUINT TO THE FNbC* AND LASTSCAN X 140202542100 

WILL POINT TO THE FIRST inON-ALPHA CHARACTER X140202542200 



FOLLOW TNfi TT. 



scanaword returns the length qf the identifier 
scanned; 
LOCAL scancount*lscan*fscan; ■ : ' 



X1402Q254230Q 



LABEL B*NUMBER*XIT; 

SI jspirstscan; dijsLQC fscan; dsjswos; sijsfscan; 

Dl » = TE5T8UFFER; DS:«16 LIT " "; 



»l4020254240a 
*i40202S42500 
X1402025S0O0O 



Bl 



IF SC« 
IF SC*"*" 
BEGIN 



" THEN BEGIN SjisSI+i; 60 B; END* 
THEN 



X140202560000 
X140202570000 
%14O20256OQ00 



DpsLOC scanaworu; 

DSJS8 LIT "00077/77"; 

FScan:sSI; LScANisSi; 



X140202590000 

X140202600000 
Xl4020g6l0QQO 



GO XIT* 

end; 
fscan»«si; 



X14O202620000 
X140202630000 
Xl402026a0QQQ 



X14020265QOOO 
X140202660000 
X1402026700QO 



2 
3 
4 

6 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 

le 

19 

20 ( 

21 

22 

23 { 

24 

25 

26 ( 

27 

28 

23 < 

30 

31 

32 < 

33 

34 

35 I 

36 

37 

38 ^ 

39 

40 

42 

43 

44 4 

45 

46 

47 I 

48 

49 

50 % 

51 

52 

53 M 

54 

55 

561 

57 



i 
i 



m t 



>} 



\ 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
16 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
2S 
26 

" 
28 
29 

30 
31 ~ 
32 
33 



sAviNGcsi isaccum; di:=luc lscan; U5»»wDS; 
Dit=LScAN; Sii=fscan; 

IF SCsAL^^H . A TH EN . 



BEGIN 



3(140202680000 
*1402026V0000 

xmQjQZT. QQQ OQ.. 



OSS'LIT " 
ir Sc LSS 






THJN 



«1402027i0000 
X 140202720000 



16(IF SCsAtPHA THEN DS:=tHR LLSE JUMP OUT 3» 140202 740000 

»1402027b0000 
SUF^C ftf>^ '^C" THKN If SC LE Q "9*^ THEN % 1'*0^Q2I6S1QQ.Q.. 



ELSE 



END ELSE 
IF SC H l <i 



lscan:=di; sij=loc 

SH=FSCAN); 

dH' S pfci a lc h r ; 



OSJsCHR ELSE JUWP OUT ELSE JUMP 
»$^ THFN IF SC NE41 »%» IHEK DStsCHR; 



lscan; ois'ACCum; DSt=wos; 



QUT)J 027/0000 
X14U202760000 
!ti4Q2Q g790000 



»140202800000 
X140202810000 

a;HgaQ2820n0Q- 



0S»»8 L|T «000GO0OO"; 

DH*oi*i; 

If SCgALPHA THEN QI»*TESTBUrFER ELSE 



X140202830000 
XH0202840000 
XH0202850000 



34 

35 

36 

37" 

38 

39 



BEGIN 



ds!*chh; 

LSCAN:=Si; 



end; 
eciF 



GC Xl.Ti.„.\.; 

Sc GEO ^'0" THEN IF SC LEQ "9" THEN 



*;140202860000 
X1402028/0000 
^140202680000 



BEGIN sit=si+:; tallys*tally+i; 

ELSE JUMP OUT ELSE JUMP OUT); 
SCANCCUNT:=TALLY? 



X140202890000 
X140202900000 
X140202V10000 



END 



SCANCQUNTCJUMP QUT TO NUMBER) 
16(IF SC»ALPHA THEN 
Brfi fN nStsCUR; tally >»TALI Y.H ; LNf^ PLSF -JUMP 



X140202920000 
*140202930000 

atHQyo?9 4&Qj:LXi- 



l5can;=si; 
scanawcrdistally; 
GO xit; 



X140202950000 

*140202960000 

QUT^iitflQg n ?«/Qnnn 



X140202980000 
:I£140202990000 
X140203000000 



NUMBER! 

scanaword««tally; 
lscanusi; 



si:«si-scancount; 

OSjaSCANCaUNT OCT* 
DH=LOC SCANAWORp; 



DbJsLiT 



XITJ SH»LOC lscan; DI!«LAi»TSCAN; Dssswos; 

SU»LOC FSCAN; Di» = FlRSTSCAN; Ds«»wos; 
end; 



11140203010000 

»140203020000 

X1402030 3 000 

X140203040000 

%1402030b0000 

ail40203060 00 

X1402Q3070000' 

%140203080000 

51140203090000 



41 
42 



45 
46 
47 
•8 



49 
50 



52 



S5 

se 



SCANlT;»SCANAW0RDcTESTBUFFER*FlRbTSCAN'LAST5CAN» 

SPECIALCHR, SAVING* ACCUMULATOR); 



X140203U91000 
X140203100000 
%140203110000 



end; 3:140203120000 

X************* ******* A ****** ************* « * ****** * * * ************* * * * ****0312l000 
REAL STREAM PROCEDURE WHaTWOHDC TeSTBUFFER* CCjMPa>^EBUFF# LENGTH );X 1402031 22000 



VALUE length; 

COMMENT WHaTWGRD SEaRCHEo COMPaREBUFF FOR LENGTH 
^^QRPS OR UNTIL A MATCH /jlTH TtSTOUFFER IS 



itl40203123000 
X140203123100 
X140203123200 



POUND. IF A WATCH 1$ fOuNO* WHAfWORO RETURNS 

THE Index OF The matching i^qbd, otHERwise, 

A ■VALyF;aF.-^l VIS' R£T.UtNEO'. .;■.;,.: '■ . :- ■'■.';■■■ ■ "/■ ' . .. 



X14O203123300 
Xl40203ia3«00 
X140203123S0Q 



BEGIN 
LAB EL 



XXL 



SIt»TESTBUFFER; 
Dlt«C0MPARE8UFF; 
LENSTHCir 8 SC»DC 



X140203123600 
X140203124000 
X1 4O 203l24l OQ_ 



THEN 



X14U2031242G0 
X140203124300 
X14020H24400 



>T 



ELSE 



BtGiN WHATWURIJ« = TALLY> JUMP OLT TQ XlT; END 



Xl40i!03l24500 
*140203U4600 

;i ii^o2g 3t«;47Qo 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 



XT T« END? 



TALLYi.i; whatwqrdistally; 

OltieUOC WHATWORO; DSJ»LIT" + "j 



%1<I0203X24800 
X140203124900 
I.HQ2Q31250QQ 



STREAM PROCEDURE VALUEMOVEC N/ A^13 ) ; VALUE N^A,b; 
BEGTN LnCAl NN; 



********* ************************03j;;j5000 

03130000 
iAQ. 



JXX 



)000 



sn»L8C «; SIUSI+6J 

SHaA; DIt*8i 

NN(nSta3? w ns; Di >;s 32 



DU'LUC nn; di»»uX4?; ds«»chr; 



yi ns) ; n s?>«tN w os? 



03150000 
03160000 
03170000 



end; 03160000 

X ******************************************* ****************************03l 90000 



r********************«*****«***********«yr*****«****4r 

STREAM PROCEDURE CHARAC TERMOVE ( N, A ,b ) ; VALUt N.A,BJ 



13 

14 

(lb 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



BEGIN LOCAL NN»NNN; 

su»LQC n; suasi+s; ou*luc nnn; di{»di + 7; osjschr; 
ousloc Hm Dii^Q i *7i p sig CH R; 



SI:sA; DIJ=b; NNCD3:532 
NNNc8C16(DS:s32 CHR)))> 

END,? 



chh; DS:aji? ChH); osssN CHr; 



03210000 
03220000 
03221000- 



03230000 
03231000 
03240000 



X******************* ************ ***«********«*********A***«*«**********«Q3250000 
STREAM PROCEDURE FUNNYMOVECN* ArB ) f VALUE N*A; 03260000 

BEGIN SH»AfOHsB|N(P5»s6 GHR)J £|^D; 3270000 



%********************•************** „_ 

STREAM PROCEDURE ED I TrtR( LtNGjH/ bQURCE^QEoT * aCL*QCTL# 
EDITS LENGTH WOHpS FROM A AND PLACES THEM 



COMMENT 



"nn^^ unuf ^ wjc f wuuu 

****** ******************************0 3280000 

^o.^.^r r,r.-r ur, no,, * 1 b 1 3 2 9 Q Q 

03290100 



AT B, IF BCL IS TRUE* A TRANSLATION FROM 

INT TO BCL IS PERFORMED. TR ANSL ATOUFFER IS THE INT- 

BCL TRANSLATION TABLE* IF TwXOUT IS TRUE 



03290200" 
H;i50l03290300 
11 501 032^0400 



EACH LINE IS FOLLU^^EO BY m LEFT A^RO^; 
TRANSL AT EBUFFLR, TWXOUT); 
VALUE LENGTH<.SnuRCE^6CLfOCTL»TWXaLr; 



03290700 
%150103300000 
Q3310OQ0 



BEGIN 

LOCAL TEMPS, TEMP0*TEMPH; 

LABEL XIT; 



03320000 
03330000 
03340000 



si:ssdurce; 
tempsjsSi; 

BCL(DP=S8URCE; TEMPO;=DIi 



03350000 

03360000 

!t;150l03370000 



LENGTH(8(0I«=L0C TEMPR; DH»=D1 + 7; DS|»CHR; 03380000 

TEMPSlasSi; SI I «TRANSLATEBUFFER; SI««SI*TEMPR; 03390000 
DIt«TEMPDi DS>gCHR; TEMPO{«niJ 03400Q00 



40 
41 
42 



SltsTEMpS) ); 
SUsSOURCt; JUMP 



CUT); 



d i «=de st; 



03410000 

4150103420000 

O3430QQ0 



43 



TALLY |W|fTEM^S{*TAULY^ 

0CTLtLENGTN(a(8<0S»»3 ReSETj 3(IF SB THEN DS««SET ELS£ 

_- .■'■ ■ ■: ■.:■•' ^ ■■: DSt«RESET; SKIP SB); 



03440000 
03450000 
03460000 



46 
47 
•8 



)iTEMPSCDSr 
JUMP OUT TO XIT); 
LENGTHCDSisg CHR/ DS»=L1T ' 



•LIT " •') );Di':5LlT 
' "); 



). 



03470000 
03480000 
03490000 



•9 
50 

51 



S2 
S3 



54 
SS 
B6 



XITi TWXOUT(DS:sLlT «♦"); tND; 03500000 

%*******•***♦*****♦********* ***«#♦*♦** * * * * * *********♦**********#******#« 3 § J 00 

DEFINE CDITRCA*B#C#D/£>F>.Q/H)«'£MtHaCAf B/CVB»E>G»H3#* !tl50l03S20000 

EDlTCEDITl*tDIT2*EDlT3,EUIT4#EDIT5*EUIT6*EDIT7,EDIT8)« Xl 501 35201 00 



EDlTCEDITl*tDIT2#EDlT3,EUIT4*EDIT5*EUIT6*EDIT7,EDIT8)« 
EDlTR(E0lTl.C0READDR(tUIT2)>EDlT3,EDlT4,E0lT5,EDn6* 

EpiT7,EDITB)»t 



S;l50103520100 
03530000 
354Q 000 



X******************** ************************************ ***************0355000l 

INTEGER PROCEDURE SKIPS TOPORQWf OK* SKIP); VALUE 0K,SKIP; 03550100 

BOOLEAN QK/SKIPI : Q%5SQ?Qn 



55 
56 ' 

.3 



• • 



h 



12 
13 
14 
IS 



16 
17 
18 



19 
20 
21 



22 
23 
24 

25 



26 
27 
28 
29 
30 
31 ~ 



32 
33 

34 
35 



36 

37" 

38 



«0 
41 
42 



43 

44 
45 



46 



48 



49 
SO 



61 

a 

S3 



ss 



a 



BEGIN 

COMMENT RFAII.S rFTLF ANH l?fTuRN5 THE rnunt^lNG nf-PFNipTNfi 



ON WHAT HAS BEEN ENTEREDJ 
laSKIP 



035i)0300 
035b0400 



2=STQP 
3 = 0K 
4aWY 



03S50600 
03550700 
03550B00 



035b0900 
03551000 
03 5!3ll00 



; 



INTEGER STREAM PROCEOUHE SSOHOK( B>G#UK^ SKP ) J VAlUE OK^SKPj 



BEGIN LABEL 
si:=r;l! if SC=" 
BEGIN SI>cSI-»1;gU 



L'LL»xit; 

«■" THEN GO 



03551200 
03551300 
0355U00 



XIT ELSE IF bC=" 



THEN 



IF Scabs'* T|J»EN 

BEGIN SllaSI+i; 

IF SCa'»K*« THFM TAl LYtRSKP 



035^1500 
03551600 
03551700 



ELSE IF SC9»1» THFN TALLY ta.?i 



END ELSE 
IF SC="0" THEN 
IF SC'^^W^ THEN 



03551800 
03551900 
03552000 



OK(rALLY5=3) 

tally:-<<; 



ELSE 



ssorokj«tally; 

0KI«TALLY1 

OK (JUMP OUT TO 



03552100 

!i;140003552200 
„ 03552300 



X IT )/ 



0! :=c;DS:a5 
ll:dsi»chr; 

■ XTTJENO; 



LIT "EKR; 
IF SC Ntd 



"♦■" IHEN GO LL, 



SWITCH FORMAT AXJ»("SKlP OR STOP" )# ("STOP OR UK")# 

("Skip* STOP or ok"); 

TNTFfiER If , 



03552400 
03552500 

03552700 
03552600 
03552900- 



03553000 

X140403553100 

Q3553200 



LABEL INV; 

X 

INPUTBUFFERCIO]! 



!RFAL(NQT FAlSe); 



SKIPI»SKIP 

OKlaQK AND 
INVl 



AND TRUE^ 

tbue; 



03553300 
03553400 
03553500 



WRlTE(CFILE'AX[REAL(SKlP) + 2'<REAL(UK)-n); 

read(cfile,io*inputhuffehc*]); 

if n-ssorok(inputrukffh#outhuffe^<>ok^skip) = 



XU0403553520 

X140/4035S3540 

03553600 



TH^N 



03553650 

03553700 

511140403553800 



BEGIN 

WRITECCFILE#10*OUT8UFFERC*3)' 
GQ INV; ____^ 



03553900 

03554000 
3554,00 



end; 
skipstoporokj"!; 

end; 



03554200 
03554300 
35^44 00. 



X **■«****♦**♦ *.* *'* '* * * *-* i,*******'** ♦•„*■* ************ *,*.# ♦ * * *.,*, *'.*'*'*'* ****.****>***** 35 5 5'6 

BOOLEAN PROCEDURE STOPPERCHECKCU); Xl40203556000 

VALUE it; boolean it; X1402035S7000 



BEGIN %14020355e000 
COMMENT EXAMINES STQHPeH ^ IF VALID "iN30" MESSAGE X 140^03558100 
HAS BEEN ENTERED iHEN WHITES OUT THE APPROPRI ATEitl 40203556200 



TERMINATING MESSAGE AND SETS STOPPERCHECK TRUE, X 140203558300 
IF STOPPER LEO THEN CHECKS FOR A VALID <MIX>IT X140203558400 
MESS AGE AND SETS STOPPER TO THE APPROPRIATE VALUE 03558900 

^•CANNING THE <MIX>AX MESSAGE 



AS DETERMINED BY 
AND PROCEEDS AS U 
"IN30" MESSAGE. 



THE <MIX>AX 
STOPPER hAU BEEN SET 



X140203558600 
BY THE X140203558700 
X140203556e00 



; XI4O203558900 

INTEGER W» count; %l402b3559000 

LABEL CH£CKlT*9ADlT*C&ftlTRUL>CHECKST0PPER/TW0*XlT; X140g03559l00 



571 



>T 



19 
20 



22 



24 

25 



27 
28 
29 

30 
31 
32 
33 

34 

35 

36 

37' 

38 

39 



(2 



»7 
18 



19 

50 



52 



is 

56 



FORMAT 

INVINCINVALIU 



1N = ",I4*"«-")* 



IPCC'ENTER IMTERHUPT REQUEST*")* 



%140203559300 
;tU0203bb9aOQ 



TERMTEiiTCTEST 
DEFINE 



#'M2*" TERMiNATEO BY 



SCAIM = BEG1N FlRoii)CAN:=LASTi)CAN; 
COuNT«sSCANl t; 



Xl40203b59500 

OPERATOR"); 03559600 

%1002035597QO 



WORO-WHAtWORDfTESTBUFFER* jUNKBUFFtR*lt )#; 
IF STOPPER ISS THEN 

BEGIN : 



X140203bb9a00 
X14020355990C 
itHP2 Q 35(?0Q Q0 



ENDi 



STQPPERtsO; 

GO chlckzt; 



X140203560100 
XlftO203560200 
&14020356030Q 



IF STOPPER NEQ THEN 
BEGIN 

IF STOPPER'^3 OR CONF AND STOPPER LSS 4 THEN 



*H02035604C0 
%14O2C3!360500 
a!H0203560600 



GC CHECKSTQPPEH> 
WRlTE(CFItE*INVlN,STOPL); 
5TnPPFR!=C); 



X140203560700 
XH020356Q800 
it 140203560900 



ENDJ 
IF IT 
flERiN 



*140203561000 
X140203561200 
itl40<'0356l3nn 



THEN % <MIX>I1 



CHECKlTl UPUT8UFFCRL10J JSREALCNUI TAUSE); 

IF TRUE THEN 
FTLt- JUNKr UFFFRL* ] W I TH „__ 



X14020356J400 
X140203561500 
» 14020356 1600 



XH020356180C 
X140203561900 
itl40203i?6200n 



"CONF 

"OUT 

"INT 



% 
% 




1 



X140203562100 
«14G203562200 
il403Q3563.^QQ 



"OCL "* * 3 
"OCT "^ % U 



"OUTPUT 

"STOP 

" WAIT 



% 
% 



X140203562400 
*140203562500 
ilil402n3562ft00 



6 
7 

JL 



!it40203562700 
X140203562800 
1140?0356?9nn 






"SKIP 
"TEST 



% 
% 



9 
10 



BADITJ WRITECCFILE*1NVIT)J 
WRlTE(CFILE*iPC); 
REAUCCf IL£»i0#lNPUTBUfF£RC*3); 



«140203563000 
%l402035o3l00 
X140203b63200 



INP. 



LaSTscan: 
scan; 

IF COUNT GTR 



X140203563300 
X140203563400 
X140203563500 



63 THEN GO X it; % "»" 



IF SP£CIALCH«»"*" THEN GO CONTROL ELSE 

IF COUNT uea o oh wi«»word lsjs o then go baoit; 

IF W LSI 7 THEN X "CONTROLCARp** ; 



X140203563600 
X140203563700 
XHO2Q3 56 3a0Q 



X140203564000 
X140203564100 
X1402035642QQ 



CONTROL,* 



BEGIN 



ST0PPERS=1+ REAL(CCNF); 
TK lNSWlTCh='2 THEN 



•BEGIN' 

IF NOT OGNETOa ThEN CLOSECRAXNT) 

•..gust >:o.flM.T^6'G;M false;-- V ^- .■ :.. :.; 



X140203564300 
X140203564400 
X140 203564 5Q Q 



inswitch:«cswitch; 
end; 

INSWITCH:gINSwlTCH*10; 



X140203564600 
XI 40203564700 
Xt402Q3564800 



ENO ELSE 
IF W»7 THEN 
BCaiN 



X140203564900 
X140203565000 
X140203565100 



% "STOP" 



X140203565200 
X140203565300 
X140203565400 



55 

56< 
5? 



h 



10 

11 

12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 



22 

23 

24 

2S 

2« 

27 

28 

29 

30 

31 ~ 

32 

33 



34 

3S 

36 

37" 

38 

39 

40 



41 
42 
43 
44 
45 
46 
47 
48 



«9 
50 



61 

a 

S3 
S4 



S5 

56 



scan; 

IK COUNl GTH 63 fhtlN ST0PHEH:a3 ELiJE 

IF W0KD=10 AND CONK Th£N ST0PPLR:=2 LLSL 



GO BADlTi 
END ELSE 
IF Wsfl THFN it "HATT" 



BEGIN 



scan; 

TF SPEClALCHR="s" THFN Scan; 



IF COUNT LS3 THEN 
BEGIN 
DFLAY<gTFSTBUFFFRLU3; 



%HOiJ03bCi5bOO 

XUC203iJ6570Q 
XH0a03S65800 
aiHG203565900 

*H0203566100 
XH0ii03566200 
at HQ2 Q3.bfi)63.(ia 



GG X1T> 
ENDi 
fill HftDlTf 



%H0203566400 
X140203566£>00 
Xl«0yQ^566ft0n 



END ELSE 

IF W»9 AND CONF THEN 

REfiTN 



*H0203S66700 
XU0203b66800 
1lH02n356ft9G0 



% "SKIP" 



ST(.JPPEK« = li 
END ELiJE 
GO badit; 



*140203567000 
»l'»0203567i00 
8:140,^03567200 



CHECKSTQPPERJ 

If NOT CQNF THEN TEST isTESTlNX J sQl 
WRlTE(0UTFI[DBL]^T£RMTE3T.TEaTL); 



IF ST0PPER=3 THEN 
BEGIN 
feiiiITF(lJUTFiLDRL3^T( KHJ/ 



X140203i67300 
%140203t}67^00 
1il402035675GQ 

X140203b67600 
X140203567700 
aiH0203567 BQ0 



FNDi 



()Qnetoq;»thue; 

IF CONF THEN GO TWO; 60 XiTi 



*140203!367900 
*140203b68000 
3;H0aQ3!?08XQfl. 



IF i>TUPPER = 2 THEN 
BEGIN 
I F DQNETOG IHEN 



ilH0203b68200 
!l6l4020356e300 



BEGIN 



3i;HO20356eb00 
*iaO203b68600 

an 4 QgO 3 bM2J3iL 



DONETUa«»FALSF.; 
lNSwITCHt=CSWITCH; 



TWO: 



XITt 



end; 



end; 



end; 
unlgckctestarrayl* J); 

TESTARRAY[TESTINX-I-1]; = HEAL(N0T FALSE) ; 



»140203566800 
1140203568900 
ifcl40203569Q0 



%140203t>69l00 
Xl40203b69200 
X1402Q3b693 00 



STOPPEflCHECK:= STOPPEH NEti g> 
END STOPPERCHECK; 
X**** *************** ************************************ 

INTEGER STREAM PROCEDURE QCTaL(NR); VALUE >iH; 



%140203569400 
XH0203569500 
X140203b696QQ 



BEGIN 

siuLBC nr; DitaLQC uctal; DSisQ Oct; 



X140203;369700 

%140203569800 

****************03630000 

____ 03640O00 

03650000 
03660000 



end; "^ 03670000 
Z****** ******* ********•*•***•**•***•****•*** «*******«i,***«*«***ik********03680000 
STREAM PROCEDURE MOVECn>A»B); VALUE N> 03690000 



BEGIN LOCAL NN; 

sit*LOc n; dii*loc nn; si;aiii+a; unmoi*?} dSi«Chr; 
SI i»M 01 i»b; nn{0s»«32 wds; os««32 wos); 



dSisn wds; 
end; 

X************************** ■■ „„....„ 

stream PROCEDURE ReVERseMQVECC#A»8)i VALUE C#A#B; 



03700000 
03710000 

03720000 



03730000 
03740000 



BEGIN 



********** ******,i,**************<^***<nK nnnnnn>»037^Ol00 

..r..,«..e,^ K «,, ,,., ..^ r. . ... 03740200 

03740300 
'^_^^^ 03740400 



56 < 



2 



% 

SI taLGC 

QH«LOC 



c; sn = si*5; l)I:=lijc ccc; l)i:=ui+7; dsjschr; 
cc; Dit = un-7; us» = chr; si; = a; s>i;s^i-ij dh^bj 



03740500 
03/40600 
037aO7QQ 



Dii«Di-i; 

CCC{4(32{32C0Sl«CHR| Dlt»0l-2i SU»SI»a)))); 

cc(g(32(nsi«criR; Dit»ni-2; sn«si»2n); 



037^0800 
03740900 
03741Q0Q 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
"5 
16 
17 
18 



C(OS» 

end; 



'Chr; di«=oi-2; si»-si-2); 



end; 

ncPlNE OFciMAi fnrriMAi i lair maint Twrw MAiMTAnn«f nrniMAi it n 



37 41100 
03741200 
37taOQOO 



DEPINE OECIMAKDECIMALI) 



rir MAINT TWEN MAlNTAOORCDEClMAun 
EI.3E DECMAUDECIMALDf* 



03760000 
03770000 

n37floono 



unaff # — u jf auuoo 

w»,.-»--w»--^-~-w*********iir*«*********,^***************************,^O3 7 90000 

PROCEDURE IOREOUESTCFINALMUUEoC^lOCATION); 03800000 

CALLS THE MCff PHnCFDuKF BY THP SAMK NAME, 03800100 



19 
20 
21 



%********************* 

PRQCEDU 
.COMMENT 



MCf> FURNISHES THE FLAG Bit ON THE 
LOCATION EN fry; 
V A LU E FI NAL *TQDESC*LQCATIO N f 



03800200 
03800300 

oaflinooo 

03820000 



03830000 



REAL FlNAL*IOUE3C»LOCATlONi 

C0MMUNlCArEC41); ujv-wwvw 

%******************************* *****-k*****i,*******i^***i,***********^^,***ojf8aO()Q n 

REAL PROCEDURE OISKlOt CQRe,SI2£*DISK) ; 03850000 

VALUE SliEiDlSKJ ARRAY CQREi:*3j INTEGER SIlE'OlSKi 03860000 

COMMENT PERFBRMS A DISKIQ or ABSCSIZE) WOftPS II^TQ/FROM Q3a6Qinn 



22 
23 
24 
25 
26 
27 
28 



ARRAY COHEC*] AND Ol^t^ ADDRESS DISK. SIGN BIT 
OF SIZE DETERMINES HEAD/WRlTtC REmQ * SIZE < 
)« RETURNS RESULT ULacRlPTUR; 



03860200 
03860300 
0386040 



BEGIN 
REAL lOo; 
INTEGER location; 



03870000 

»140703880000 

0389QQ OO 



29 



33 



34 

35 
36 
37 ~ 
38 
39 



C0REt0]:5DECMALCDlSK:sDISK); 

lODts 

(COREADDH(CQRE[OJ))AolZE[B!38n03^( (SIZE. [36» 103*2 9) 



%140703960000 
03970000 
03^80000 



DIV 30 ♦ 5l2)C10»33ll53&SlZ£t24MH34 
TINUC3I43I53; 
LOCATrQN»gCQREADDH(IQU)i ^^^ 



3^90000 
04000000 
04010000 



iaREQUEST(-l0D&0|;25U0!8]/I0DH.aCATl0NiiUNlTtl2»42»6 3S O4O2OOOO 

1C2J47113); OAOiOOOO 

I^AIT(LPCATTUN» lUMASK); 0404QQ00 



OlSKIQjsIOO; 
DISKIO; 



04050000 
04060000 



END DISKIO; 04060000 

%****************■*■** ************** ******* ■» * • ****■*********'*'* » * * * * • »*#»*»*04060l00 

PROCEDURE FInDOUTPUT(QS*WB);vAlUE QS,rtEi;iNTEGER 0S#WB; 04060200 



«o 

41 
42 



04060200 
04060300 
Q4O6O4Q O 



COMMENT 



OSaO 

svl 
a2 



PRINT EH 

SPO 

PRINTER 



BACKUP Tape 



04060500 
04060550 
04060600 



46 
«7 



ai PRINTER 
= 4 TWX 



BACKUP DISK 



04060700 
O4O6O8OO 
04060900 



<9 
50 



IF OS NEQ OUTSWITCH THEN 
BEGIN 
IF FILEOPENEO AND NOT TWXOUT THEN 



04061000 
04061100 
0406 t gGO 



B2 
B3 
54 



BEGIN ClOSEC LI NE);F REOPENED J sFaLSE;END; 
IF NOTCOSai OR ass4) THEN 

LINL«TYPE:slF US = THEN 1 ELi»L 



04061300 
04061400 
0/1061500 



55 

56 



IF 05*2 THEN 6 ELSE IS} 



end; 

IF NOT CQMPtLlNfl THEN 



04061600 
04061700 
Qft061fl0n 



56 ' 
57 



• • 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

IS 

17 

18 

19 

20 

21 

22 

23 

24 

2E 

28 

27 

28 

29 

30 

31 ~ 

J2 

33 



34 
35 



36 

37" 
38 



40 
41 
42 



«3 



45 
46 
♦7 
18 
49 
50 
51 
52 
53 



54 

55 

56 



TWXOUT: = (OurS^ITCH:sO;isl UR DS = /<)i 
W8UfF« = IF WB'O then If TWXUUT THEN 9 Lt-SE lb LtSE 
. TF ThXUllT THP:N MTN(^^R>9J FLSf; HiUihHf\ 7) i 



0<4CJ61900 
0^062000 
0WP62100 



END OF FINOOUTPuTi 0«062200 

%* * * * it ******* it ******* * ****** ********* ****** it ***** **i,^* 

PRflCEDURE DATIMFI ^ „ n^Qflfipfin 



BEGIN 

ARRAY AtOJ6]; 

INT EGER D^HfM«MlNfa^P^Y/ R; 



REAL ni 

LABEL OWTi 

FORMAT PTC A»>"DAY^ 



»»Zil2>'»/»Ul2,»» ">I2#*'I"»A2>X1*A1> 



" M ) # 

0TlCx2O*"8URR0u^HS B- 

'^MARK.XV , 3 , QQ"' 



'5700 sIMPl compiler 'V 



XS*A**"DAY* •'#aci2#"/")#I2*"# " 

,I2#tJ'^*A2#Xl#Al,"M.")| 
LIST LST(AeR3«C42l63#AtRr»£6t36J#M«D#Y>12xR£AL(QI« 



H MOD 12sO)+Q^a«*MlN MQD lO+CMiN DIV 10)x6a* 
IF H GE« 12 THEN "P'' ELSE "A"); 
FILL Ar*J ^^ITH "SUN3"^"MUlN3'S"TUEi>a"»"t<EUNES6"* 



"THURSS"»«F«ii",»SATUR5''; 
IF CQMPItlNS THEN 



WRITCCUFILECDSLJ); 
WRIT£(Lf ILECDBLJ); 



ENOJ 



Y«»TlMECO)i 

tU»TlMEini 
D>^Y.[lQi6]xi0.Q.»Y,t36i6]xtQ + Y.£42»63; 



Y»*Y.Ci8J63xi0+Y.t24!6]; 

FOR H»=31*IF Y MOU 4=0 THEN 29 

31»30j>31*30> 31^3l*3U>il*30 DO 



ELbE 26* 



IF LEQ H THEN QO OWT ELSE 
BEGIN D««0*Hjl MI«M + 1J END! 



OWTJ 



H'=Tl DiV 216000; MINJ=(T1 

IF M Lss 2 Then 

BEGIN a:sM + u; pj«y-i> end 



DIV 3600) MUD tOi 
ELSE 



BEGIN Q»»M^U PJsY; end; 

MlaM+i; 

«»*(CQx26^2>0IV lO*D*PtP.C36U03*UMOD 7f 



IF COMPILING THEN W^ 1 TE C lF iLt t DBl J WJTl *LST ) 
WRlTE(0UTFHDBL]*DT'Li3T); 

fileopeneu:strue; 



ELSE 



04090000 

04100000 

-OAi-lOQQO, 



04120000 
04UU000 



04150000 
04160000 

04 17Q 000- 



04171000 
04180000 
04190000 



04200000 

04210000 

- Q4« i2 00 0Q, 



04230000 
04231000 
Qfl232non 



04232100 

04232200 

■ 4 2 32 3 - 



04240000 
04250000 
Q4 26 QQQ 



04270000 
04280000 
04290000 



04300000 
04310000 
04320000 



04330000 
04340000 
043b0000 



04360000 
04370000 
04360000 



04390000 
04400000 
04411000 



end; 04420000 

•X.* * * ** * ,♦ * ** *'♦,* **:♦***,*******# **•* * * *■*'*■ ************** *%■*♦*• * #;*■*,*•.* # *'«'* ********QnM 3000'0 

procedure PKgUSlNESS(BUFf?J VALUE BUFFJ REAL BtiFFj 04440000 



COMMENT DOES MANY STRANGE AND WONDtKDljS THINGS. 



IF BUFF«CSF 3''1023 



MCBUFF.LCFJJ }= 



IF BUFF,Cl5a53»0 



IF BUFF,[FF3 = 3"77777'' 

OTHERINISE 



PRNTa8LECBUFF.[FF33 
MCBUFF.CCFjna 

USEtiSTACMlXJ 



04440100 
04440200 
04440300 



MlBUFF.tCF] Jl* 

M0D31US (MCP) 

CALLS HOP ROUTINE BY 



04440400 
04440500 
04^49 6 



04440700 
04440600 
04440900 



SAME NAME AND PASSES 
BUFF AS parameter; 



04441000 
0444UOO 
044 #1200 



ijQ 



h- 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 

ns 

lis" 

1 

17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



31 
32 
33 

34 

35 

36 

37" 

38 



39 
<0 
41 
42 



43 



45 

47 
48 



49 
50 



52 
53 



54 
55 



C0MMUMCATE(40) ; 



._ 04^50000 

PROCEDURE LiNKUPf TYPF/KFY)/ VAlUF TYPL.KFY; KE:al TYP^.KF_Y; n^qfcOlfiO 

COMMUNICATE(40); 04460200 

BOOLEAN STREAM PROCFnuRE TWOTEST f N« A U VAI UP N^i » 150 1 Q4460fl0n 

Xli}0l04460450 
*lb0l04460500 

a; t50i0 4 <t i &05S0 



BEGIN 

susLOC a;skip 
end; 



N 



SB;IF Sb Then TALLY:sl/Tl^UTEbT: = TAtLY; 



»-i »w . ^ . — . — ___ ~ — _ _ — * * ^ v ^, 4 ,, v ),n wwvaau 

X*t********************** * * ****** ******************************** ******i^0 4 460600 
STREAM PROCEDURE TWORESETC N# A) J VALUE n; 04460700 
BEGIN DI>»A?SKIP N n B;D S<»HE S £T /ENn; _^___ o na^o^ Of) 

r *************** *******.*************ilrinnk***^f04460900 

"' '" 04461000 

*; ^.-r, , „ ^^r^^.--^, .^,.^, , 04461100 

X*********************** ** ********************************************** 04 46 1200 
DEFINE 

TW0SET(TW0SETUTW0SET2)» 



X****************************»»,,,„,-i,,ww»wir 

STREAM PROCEDURE TWGSETR( i\* A ) > VAtUt- ^* 
BEGIN DI>«AJSKIP N DB; PS : =SET ;ENO; 



04461300 
0446140Q 
04461b00 
04461600 

^ . - , ■ . . ■ - - - ..-._. 044617QQ 

RESET{RESETlfRES£T2)s 04461800 

TW0RESET(ENTIER(47-(fiESETl))#RE5ET2)#; 04461900 

X ******************************************•*•********»#*»****»»*» »^nnt*^QA462QQ0 



TW0SETRCLNTIER(4 7-(TwUSET1 ) )#Tkv0aLT2)»* 
TW0T(TW0Tl*TW0T2)= 

TI^0TEST(ENTIEH(47-(TwLll))>TVvQT2?»* 



INTEGER STREAM PROCEDURE I NUM T C PUFF ) ; 
BEGIN 
LABEL B; 



SUsBUFFi 
81 IF SC»" " THEN dEGlN 5l!*SI+i; 60 B^ END ELSE 
IF SCs"S" THIN TALLY jsi rLSK , 



IF SC="C" THEN TALLYJ-2 ELSE 
TALLY!=3i 

inunit;=iali y; 



04470000 
04480000 
Q 44V0 QQQ 

04500000 
04510000 
4 5 2 0000 
04530000 



04540000 
045^0000. 
END; 04560000 

X******************* ******************************** ******«********«****04570000 
STREAM PRQCEDtlRF ROJMESS( BnfF * IMiNT T ) J ' n^«isnnnn 

"'"*■" 04590000 



BEGIN 
LABEL XIT; 
Dlt°BUFF; 



0s»«14 lit "input is from «'; 
si»«inunit; 

2(SI»»SI»i;'7(IF SC"*** THEN 



BEGIN 



ds«=chr; 

JUMP OUT 



2 TU XIT; 



04600000 
Q461 O Q00 
04650000 
04660000 
04670000 
04680000 
04690000 
04700000 



END ELSE DSisCHR)); 

X ******************************************** *»**»****»t,t*»»»<t»»»»»»^,»»#^t04730QQo 

, _ . 04740000 



04710000 
04720000 



ww«ww»»w.*«)*winr»«*» ****** * * **»«*»********♦********.** ** ****** 

PROCEDURE tsswhencseconds); value seconds; Integer seconds; 

D r r. T M 



BEGIN 

■ COMMENT "t^HFN " 



FOR TSS use. oofs NUT h^Qi,IKE THAT 



iRCGRAM REMAIN IN CORE WHILE WAUING; 
NTli»TiME(lH60xSEC0NDS; 
WHILE SECONDS GTR AND Nil QTRTTMECU Qfi 



iEGiN 

SECONDSl»SECONDS-i; 

wHFNcn; „_ 



04750000 
047600 00 
04770000 
04780000 
Q 479 Q00fl 



O4BOO000 
04810000 
Q482000Q 



end; 04830000 

END; 04840000 

X***** *************************************************************** *»*0jt>85000Q 



• • 



?r 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 



2Et 
I 2« 

28 
I 29 

30 
31 " 
1 32 
J3 
34 
35 
36 
37 ~ 
38 
39 



40 
41 
42 
43" 



45 
46 
•7 
•8 



•9 
50 



51 
B2 
53 
54 
56 
56 

5^_ 



DEFINE 

WHENN(WHENM) = 
BEG IN 



04860000 
Oi^8?0000 
-Q498QQQ0 



IF TSS THEN TSSWHEN(t»HENNl) ELSE WHE|s(CwHeNNl); 04890000 

END*; G4900000 

X * * * * * »**»»*•■»***•***»*»»#*»•»•#»•*****♦**♦,>,*»»** **»««»»»#jt*»*»»»,>»»«*;>»Q49200 00 



PROCEDURE MOVEANt:WHiTLCKtY*bZ#DUeLE' UTILITY' BUFFER); 
VALUE KEY*S^*U0BLE'BUFKEN; 
INTEGEH SZ'HUFFER; BOOLEAN KEY/DUtJLE; 



FILE utility; 

COMMENT WRITES SZ WORDS TO FILE UTILITY BEGINNING AT 
CORE ADDRESS BUFFER, OUTPUT WI L L BE DOUBLE 

CDA/»cn T t" nriDi r tV TU-iil- t c 1/ r v _ n a -r a l.. t i i 



oav30ooo 

04940000 

-Oiijso oo o 



BEGIN 



SPACtD IF DOBLE IS TKUt. IF KEY* DAJA k^lLL 
BE kNRITTEN WBUFF WORD^ PER I/O - UTHERwISE 

30 hURO t/ns AH£ A&SUMEip. IF KET ANO RE ALC K c Y) 

LSS 64# EDITING 1^ PEHFDRMEO. OTHERWISE^ 
THE DATA IS MERELY MOVED AND WRITTEN; 



04960000 
04960100 
Q4960200 

04960300 
04960400 
496 0500 



INTEGER I»J#K*L»X; 
LABEL EOLi 
FORMAT WRDN0(I4)* 



DUPF( xe> * ( 2 ( et '»»*') » " " ) # ' 

SDUPFCX8**(8("»'')*'' ")); 
LI ST L LtP; 



'))» 



BOOLEAN B*DUP; 

BOOLEAN STRFAM PROCEDURE CUmPAHRC n, a^B ); VALUE i\|*A»B; 

BEGIN 

siisa;di«»b; 



04960600 
04960700 

04970000 

04980000 
04990000 
05U0000Q 

05010000 
05020000 

OSQginon 

05030000 



a;i50io503oioo 

J-dO- 
Xl50io5030300 



Si Jsa;dI«»B*' X150I05U30300 

NCIF 8 SC NES DC THEN BEGIN TALLYUUJUMP OUTjEND); X150105030400 
CQMPARRt»T A t ,L Y; _ » 1501050 30500 



end; 
l:=k»shbuff; 



JIalF KEY THEN 

(SZ DIV (LI«l^-6><ReAL(0CTL)- 
(3*2xABS{REALC0CTlJ"U)xR£ALCTWX0UT)) 



iitl50l05030600 
05040000 
ifeHU6 Q5O;? 0Q Q 



_B_« 



-REALCSZ MOD L=0)) ELSE 
((SZ+K-l) DIV K)-ii 

S Z MOO L ' O , ; 



%140605060000 

05070000 

0508 0000 



BUFFERta8UFFER-L; 

FOR I«*0 STEP 1 UNTIL J 

REGIN 



050900-00 
05100000 
Q5UO0QQ 



DO 



CLEARcauTBUFFEK'K); 

IF KEY THEN 

BEGIN 



05120000 
05130000 
Q514000Q 



IF C0MPARR(L»8UFFER*BuFFER«»iJuFFER+L) 



I»0 OR 
Jg.J THEK 



OR 



05150000 
31I4O6O5I6O0OO 
05170000 



BEGIN 

dup!=false; 

y»RlTEC0UTBUFFER[*3*WRDNQ* IxL*l); 



X 150105180000 
05185000 
05190000 



IF BCL THEN FUNNYMQVE( L'8UFFER# JUNKBUFFER ); 
crura f IF Ta.j akjH niht u tliCill 



05200000 
05210000 
05220000 



05220100 
05230000 
tNiltnv.ai; wug p tt.»t U* 05240000 

IF BCL THEN CUREADUR C JUNKBUFFCR ) ELSEX 150105250000 
BUFFEK* X150105250100 
OUTBUFFER[n>BCL/QCTL#JUNKBUFFER^ 05260000 



EDITRCIF I«J AND NOT B THEN 

ENT1ERCS2 MQp p ELSE I, 



END ELSE 
IF OUP THEN 



TRANSuATEBUFFER'TWXOUT); 



^UU ELSE 



05270000 
05260000 
05290000 



h- 



EEGIM 



IF ncTL THtN 



053UCOOO 
OSilOOOO 



end; 



OUPJ 



WR1TE(OUT8UFFEH[*3*SOUPF#LL); 
!TRUE> 



05330000 
O53<40000 
05350000 



END ELiJE 

FUNNYkGVEdF I-J AND NOT 

. E LS E k*buFFE k; 



B TnEN ENTIER(SZ MOD 



K) 



05360000 
053/0000 
0S3aQQ00 



7 

8 

9 

10 

11 

12 

13 

14 

1)5 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

SO 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 



IF D08LE THEN 

WRITE(UTILITYCDBL3#K'0UTBUFFERC*3> 

WRITECUTILITY>K/UUTBUFF£Rr*]); 



ELSE 



05390000 
05«00000 



EQLi end; 
end; 

ii>Z T O MITsQMlTCOMPI^rR 



X*********ilr**********4ik*****1lr**ik ************ *********** 



05^20000 
05^30000 
Q54 39 M& 



PROCEDURE transferoutcsize#blength#f#a); value 

IN TFGER SIZF^BLFNGTHJ FILl FI ARRAY AC*3J 



SIZ 



********* 
E*8LENGTH 



******** 

* 



COMMENT WRITES SiZE WORDS JNT 

blength specifies the 

f; 



05440000 
05450000 
054 600 00, 



U FILE I- FrtOM ARRAY A, 
LOGICAL RECORD SIZE OF 



BEGIN 
INTEGER 



05460100 
05460200 
05460300 



i>4i aooLEAN a; 



y<RITECF*MlNCSlZ£*8LEM 
IF SIZE GTR BLENGTH T 
BEGIN 



GTH)*AC* J ); 

HEN 



05470000 
05480000 
05490000 



BJsSiZE MOO BLEN 
JJsCCSlZE+BLENGT 
FOR i|gl STFP 1 



GTH«0; 

H-n DlV BLENGTH)-! 

UNTIL J DQ 



05520000 

05520100 

ail40a05b20200 



X1404 
X1404 



05520300 
05520400 
O'^SlOQOn 



BEGIN 



CLEAK(FCO)/ 
MOVEUF I = v) 



BLENGTH); 
ANO NO'I R TriJN ENTlE R{S ,U£ 



41404 
MQD:tl404 



05540000 
05550000 



BLENGTH) ELSE BLENGTH, A C IxBLENGTH ], »140405570000 

FCO)); Xl404055a0000 

WRITFCF); !tl4040'i59QnOO 



end; 



end; 



end; 



*1404 
X1404 



05600000 
05601000 
05610000 



tPQP OMIT 

%*********************************»****♦*************** 

PROCEOURE TRANSFERlN(SIZE»BLENGTH>F*A)j VALUE SIZE 



********* 
^BLENGTH; 



******** 



05610001 
05620000 
05^30000 



INTEGER SIZE'BLENGTH; FILE 
COMMENT READ STZt WURDS FROM 
RECORD S IZE BLE NG TH) 



f; array a[*); 

FILE f C^^ITH LOGICAI 
INTO ARRAY A; 



05640000 

05640100 
56 , 40 200 



45 
46 
47 
•8 



BEGIN 
BOOLEAN B; 



INTEGER lij; 



05650000 
OS660000 
Q5670Q0Q 



READCF*M1N{SIZE*BLENG 
IF SIZE GTR BLENGTH T 
BEGIN 



TH),Al*)); 

HEN 



05680000 
05680100 
056900 ^. 



49 
50 
51 
52 



53 
54 

55 
56 



8»»SI2E MOD BLENGTH«0; 
J|s(CSIZE+BLENGTH-i)DlV BLEN6TH)< 
rOR Iisi STEP 1 UNTIL J DO 



11 



05700000 
OS710000 
05710000 



BEGIN 



movecif IsJ 

MOD BL 



AND NOT B THEN ENTlERcSIZE 
LNGTh) E.LSE BlLNGTH* 



05730000 
05750000 
05760000 



FCO)*ALIx8LENGTH3}; 
READ(F); 



•g.NDJ:.:' 



05770000 

XI 40405 77 1000 

05780000 



• • 



rf 

2 
3 



10 
11 
12 
13 
14 
IS 



16 

17 
18 



19 
20 
21 



22 
23 



24 
2S 
26 



28 
29 

30 



3^ 
32 
33 
34 

35 



37 
38 



end; 
end; 

%M»9ltit$p»» Q\JJF^ BL O CK 



CO D E ^TAKTi' 



05790000 

oseooooo 



EMPTY laS"???/?"; 
ruNMYMQve(l.nQRrAnDR(INPUTmiFFER)-2»MIX); 



05820000 

I;i50l05820l00 

Qsaao nnn 



MIX»=MIX, t9!6]; 
DKBUSINESSCCOREADORC JUNK))> 
T5S;*( JU NK = RKA L fNQT Ff^ LiiE )^} 



tr COMMONaO THEN 

IF JUNK, Cl5»«] LSS 32 THEN COMMON 1*3; 
WHILE COMMON QTR 2 Oft COMMON lSS D O 



05340000 
05840100 
0^640200- 



05850000 
05880000 
Q59000QQ 



BEGIN 



WRITECSPOMNVCMN); 



05^10000 
05920000 
Q59JQ000 



REAOCSPO^IO* INPUTiUFfERt*))) 
COMMdNl«lNUNITClNPUTBUFFER); 



end; 



05940000 
05950000 

o' sye onoo.- 



IF COMMON NEQ 2 THEN CSwI TCH : =1 NSwI TCH 5 =COMMON 

ELSE 

B EQIN C$IN lT CHt = i ; l N S ^nCh»-2 ; IN U; 



05970000 

05930000 

-a&-990QQ0. 



FILL JUNK8UFFERC*3 WITH 

** spn» "«n # 



06000000 
06010000 
06020000. 



"CARD RE'S"AOER«- "/ 
IF JUNKBUFFERC0]«;:TIME(-1 ) 
CQMMC)N;=0; . 



NEfi AND CUMMUN NEQ 1 THEN 



BOJMESS(OUTBUFFt'R*JUNKBuFFERt2XC0MM0NJ}; 

WRITECSP0#1C*0UTBUFFERC*3)J 

IF CSWlTCHaiO THEN : 



06030000 

060^0000 

■.n604Q4flX) 



06050000 
06060000 
06061000 



BEGIN 

CLOSECCFILE); 

C Fl L fc: «TYK£;^l9; 



end; 

COMMON«««; 
ENDADDR»gBEGINADDR»a*i; 



06061100 
06061200 
60^ 1300 



06061400 
06070000 
06080000 



return; 

BEGIN 



BLOCK DECLAKATIUNS BEGIN 



REAL PMFID#PFI0; 
DEFINE 

GOPERRORtGOPERRQRl)! 



060s)0000 
06100000 



X140206120000 
06130000 
06140000 



40 



42 
43 



45 

46 

47 

«8 

49~ 

SO 



61 
52 
S3 
54 

96 
56 



BEGIN 



ERROR«=GOPERKORi; 

50 perrqr; 



tm*r 



06150000 
06160000 
06170000 



FIRSTeST«9#^ ^header index, of FIRST CONF TEST 
WRD(WRDl»IKRD2 3gWHATWQRD(TeSTBuFF£R^WRDl*V<RD2)#, 

r\atire- r noc Annur cc i^r\i /•■t ^# : 



DBUFF=COREADDR(SEGDICT)#; 



06160000 
06190000 
062Q00O0 



FORMAT 



********«*******«*«**4**^********«*******A*«*0634000C 



X150106220000 

06340000 
06350000 



ENTEROATACENTER MAINT CC*")f wo^owuuu 

£0FF("-EOF NO LABEL C MA INT )«•"); 06380000 

>*****♦*******♦♦*»*» »♦ *»»»t * * * * * * * * * * » * * * * * j[, » * * * <t * » »* <r ♦» ♦ ♦ * » * » *»**»*** *06 390000 

FILE 06400000 



TESTAPE 5(1#10)# 
TAPE TAPE (2M0^150)^ 



iHMASTER SYMBOLIC FIlE 



PTCH DISK SER|AtC2nO't50|*iPA'TCH FILE ON MSK 

CODEFILC DISK SERIAL C1»102;4 3 (2,30*SAV£ id); 
NEW...Ol:lK.v:l:£BI-AL.::|:tOvl;6:0:§J..:;:(t»:i.O'.>:;1.50«.$:AV.£/ 



06400100 
06400200 



06400300 
06400400 
06400500 



rf 

2 
3 
4 
S 



SWITCH FILE PATCHFILE:»»MAINT*PTCh; 06400^00 



INTEGER 

PRN, IPHYSICAL REEL 
TAPF D ATF f X CRjA TlQN 



NUMBER OF TAPE.f. 
DAT£ QF TA PF..««t 



06*20000 
06420100 
64 2QPQQ 



CRO, 



%USED TO COUNT ThE I^PUT CARDS 



06*30100 
06*60000 



10 

11 



A# 



XCURRENT SEGMENT NuM8£R 



ICllRRFt^T RFLaTyVF ADDRFSS 



PP# IDURING COMPILATIUN HP IS AS FOLLUrtSj 

* CFsINDEX INTO POESC WHERE NEXT PATTERN 
I Dt; 5C RI PnoiN IS Tg START „ 



06*60100 
06*70000 
06*70100 



06*71000 
06*71100 
Qft*7l?00. 



|15 
16 
17 
18 



X 
X 

.JL 



FFatOCATlON IN COOEFltE WHERE POESCC*J 
IS TO e£ PLACED WHEN FULL 



XDURING INTERPRETATION PP caNTAlNis THE RECORD 
INUMBER OF THE KECGKO CURRENTLY IN POESCl*] 



06*71300 
06*7U00 
06*71500 



w> 



06*71600 

06*71700 

■06*00000 



19 
20 
21 



XUSEQ TO STORE LAST RESULT OF WHATWORO ROUTINE 
CCCOUNT* 
XNUMBER UF CONTROL CAHQS CCOMPIlE QR EXECUTE ONLY) 



06*60100 
06*81000 
06*81100 



22 



2S 



27 



LEVELCOUNT* 

XInCBEaSES by one each time THaT A DO LOOP OR 
XSUBRCUTlNE IS ENTERED - DECKEASES riY ONE WHEN 



06^)00000 
06500100 
06i?OQ200- 



XTHEY ARE EXITED WHILE COMPILING, X 140406500300 

XDuRiNG INTERPRETING* LEVELCOUNT HaS THE SAME FUNCTION 06500A00 
XBUT IS CALLED SREG XHEN WORKING WiTh THF STACK, X ia0a065005QQ 



28 
29 

30 



NEXTBUFF* 

XNUMBER OF BUFFERS DECLARED 
TRANSi. 



06510000 
06510100 
Q65200Q0 



31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

(8 

49 

50 

51 

52 

53 

54 

55 

56 



XTRANSACTION COUNT FOR TAPE UNIT UNDER TEST 
N E W S W I T C H I 
X»l WHFN FILE NEWTAPE IS A TAPE FILE, OTHERWISE 



06520100 

Xl«0206530000 

Q 6530 10Q 



X****************************#*************«****************************06561000 
LIST SNA(S,A); 06561100 



BOOLEAN 

TAPCQUATEO* 

XA "*FILE TAPE«** CARD WAS INCLUOED iN CONTROL DECK 



06580000 
06601000 
06601100 



LIBONLY, 

XCOMPILING FOR SYNTAX ONLY 
SOP> 



06610000 
06610100 
06620000 



XAN 8UTPUT PART HAS BEEN SEEN DURING THIS RUN 
TAPETEfT* 

XTRUE WHILE RUNNING TAPE CONFIDENCE TESTS 



06620100 
06630000 
06630100 



DISKTEST, 

XTRUE WHILE RUNNING DISK CONFIDENCE TESTS 
NTOG> 



06640000 
06640100 
06660000 



HTOG* 



XTRUE WHEN '♦new OPflQN IS SET 

XTiUE»<HEN A COMPILER HCADIM MAS BEFNPRI^ 



06660100 
06670000 
06670100 



ERRT0G# 

XAN ERROR HAS OCCURED ON THIS RUN 
LINFRWOR# 



06690000 
06690100 
Q 67 1Q000 



XA SYNTAX ERROR HAS OCCUREO ON THE CURRENT CARD 
XUSED 70 CONTROL PRIMING OF CARDS ON WHICH ERRORS 
^iTKLClifl 



06710100 
06710200 
06710300 



J? 



• • 



dunescan* 

XTRLE WHEN INTERROGATING CaRU FIlE FOR EOF 
1^ CMFNT» 


06?30000 
06730100 
Cif.7UQ0CQ 


' XTRUE WWEN SCANNING A COMMENT IN «UOTES 

2 E0FT06» 

3 XUNFitPFCTFn FOF HN CARD FIlF 


067^0100 '^ 
06750000 2 
nA7'^oinn 3 


PTOG* 
5 XTHE "TAPE" OR "DISK" OPTION IS StT (COMPILING) 

DEBUGN* 


06770000 * 
06770100 ^ 
O67710OP 6 


' ITHE' "OEBUGN" OPTION iS SET (COMPILING) 

" DOLLRE* 

XTRUE AFTER FIRST CARD IMAGE HAS BEEk PASSED TO 


06771100 

06780000 « 
06780100 9 


'° XSIMPL COMPILER 
^' M0D3I0S, 

'^ xMnnFi,, TIT i/n cnNiROLs 


06780200 1° 
067V0000 '1 
06790l0n '2 


'=• MAKE TAPE* 

XOURING COMPILATION* MAKETAPE IS TRUE IF A WRITE 
XOR ERASE STATEMENT HAS BEEN ENCCUNTFRED. DURING 


06800000 13 
06800100 '* 
O68CO2OO 16 


'« XEXECUTION, MAKETAPE SIGNIFIES ThAj A SCRATCH TAPE 
" XIS REGUIRtO BY THE PROGRAM 
'« UTOG* 


06800300 '6 

06800400 17 

il40b06801G00 18 


'» XTRUE IF UNIT CHANGED IN GETHEUNH 

'" DKBTOG* 

^' XTRUE IF BEGINADOB IS A DKB ADDRESS 


XH0506aOUOO 19 
X100706802000 2" 
X140706802100 21 


n rev; 

» XDURING CONTROL CARD SCANNING* REV INDICATES THAT 
» XTHE <DUTPUT PaRT> APPEARED FIRST. 


06810000 22 
06810100 23 
06810200 2" 


^ X******************** ************************** ****************«******#<>Qg820000 " 
« LABEL 06830000 26 
" PERROR* 06840000 2/ 


'" CONTROL* 

«• CONFIDENCE* 

» RUNTAPETESTS* 


06850000 2« 
O686OOOO « 
06870000 30 


'V MCCLCQMPILER* 
" FINISHOFF* 
^ MCCLRUN* 


06880000 31 
068V0000 32 
06910000 33 


M Rl* 

^ READIT* 

'* RETURNI; 


06920000 34 
06930000 35 
06940000 36 


" X ************ ***********************^***********************************C6950000 37 
'^ ARRAY 06960000 ^ 
** CCSf0Jl993* 06961000 39 


40 

*' XCONTAINS A COPY OF THE FIRST MAlNT CC ("*"-CARdS 
« XONLY) AND THE LAST 19 CaKQS 


06961005 " 
06961100 41 
06961200 « 


43 ■ .;■ 

" C0MPAREBUFFE0I603* 

45 


06961300 « 
06970000 "4 
()6970050 "5 


« XUSEO FOR RESERVED WUHD TABLES 
47 

" HEADERC0J29]; 


06970100 « 
06970200 47 
06980000 48 


"■ COM.MEIfr"." 

HEAlJEft CONTAINS A COPY OF THifiRSTSECllRD 111 THE 


06980050 « 
06980100 50 
06980200 5, 


" SIMPL CODE FILE, ITS FORMAT IS AS FOlLOWSJ 
53 % 

■>* HEADERCO] » RECORD NUMBER OF BUFFER TABLE IN CODE FILE 


06980300 52 
06980400 53 
06980500 54 


» ^ HEADEfiCl] B NUMBER OF TAPE UNITS REQUIRED BY SiMPt 

'« PROGRAM 

'?' I HEA0ERC2] « NUMBER OF PATTERNS DECLARED In PROGRAM 


06980600 55 
06980700 56 
06980800 52 



>T 



HEADERta] = NUI^BF,R 
HEADERC/*] s 
ECF] , - QUTS >^I TC H ( OUTPUT f lLt^ 



OF COOL SEGMENTS 1 1\ PROGRAM 

T O B£ tj S £D} 



06960900 
06981000 
Q696HQQ 



csn 

H EADERI S] 



IF USE 
CARRIAGE 



STANDARD 
WIDTH IN 



CARRIAGE WIDTH 
WORDS OTMERmSE 



06981200 
06981300 

69a iunn 



C46«n » 1' BCL TRANSLATION ON DISPLAY 

' 0» INT DISPLAY 
CA7M3 » If H-Bn nCTACt DISPLAY 



06981500 
06981600 
06981700 



a 0# 6-BIT CHARACTER DISPLAY 
HEADERC6 3 • NUMBER OF BUFFERS DECLARED 
HEADERE71 , ^_^^__________ 



06981800 
06981900 
QA9a2QQQ 



10 

11 

12 
13 
14 

15 

ib" 

17 

18 

19 

20 

21 

22 

23 

24 

25 

28 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

«~ 



[CF] s It SCRATCH TAPE REQUIRED (NORMAL PROGRAMS ONLY) 06962100 
0* LABELED TAPE REQUIRED 06982200 
CFF] g 0^ EDOC ROWS AND 511 WORDS 06962300 



•LENGTH OF EDOC ROWS IF NON*ZERO 
HEADERC8) « 0# REGULAR PROGRAM 

» NUMBER OF TESTS OTHERWISE 



06982400 
06982500 
0698g600 



HEADERC20] = 0* TEST DIRECTORY IS LOCATED IN HEADERt9] 

THRU HEADERC19] 
s NUMBER OF TESTS OTHEHWISE 



06982700 
06982800 
06962900 



HEADERt213 B SIMPL STACK SIZE 
HEAOER£223sDELAY TIME BETWEEN I/O-S 
HEADERCgai « MFTQ OF TEST TaPF 



06983000 
06983005 
OftV aayOQ 



HEADERC293 = FiD OF TEST TAPE 

A SIMPL PROGRAM FILE HAS THE FOLLOWING FORMAT 



06963200 
06983205 
069833QQ 



HEADER RECORD 

PATTERN OESCRIPTION RECORDS 



SIMPL CODE 
BUFFER TABLE 
BUFFER NAME TABLE 



06983400 
06983500 
06983600 



PATTERN 
PATTERN 
SEGMENT 



NAME TABLE 

TABLE 

DICTIONARY 



06983700 
06963800 
69 8390 0, 



%X 



06984000 

06984100 

40406984200 



UNIT TABLE (REGULAR PROGRAMS ONLY) 
TEST DICTIONARY (CONF PROGHaMS ONLY) 



X140406984300 

06984400 

06984500 



; 



X***************************** ************************** ***<^ ******* 



SAVE ARRAY UNrTSf0li>0M73* PDE8C[0i293; 



06964600 

***06990000 

07Q0QQ0Q 



COMMENT 

FOR UMTS FORMAT* SEE FILlUMTS BELOK, 
PD ES C E *3 HO L DS Q N E PATTE RN DE SCRI PT I ON 



R fc^ C Q H D 



07000100 
07000200 
Q7 00 Q300 



45 
48 
47 
«8 



; 



X'**,*********** ***.**»*******».»■»*:***■*.*.*■**■**:*»****■*''*•** ♦♦*■»****■***♦»♦*■** 



*********** »..♦**...»** * * * » *»■»*:* * **.*>■**■*.*;* * * ** *■*»******■»♦***■*** 
PROCEDURE FlLLRESERVED(COMPAREBUFF); ARRAY COMPAREBUFFC * j; 

RFRTN 



07000400 

07000500 

**»Q 7010QOO 



BEGIN 
UN LQCK(C0M PARE Bl lFFC * 3 ); 



070i0000 
07021000 
07 02 2 00 



49 

50 



51 
S2 

a 



FILL COMPARE8UFFt*3 
••CONFIDENT, XI 
"SKIff »,%2 



WITH 



070^5000 
07030000 
07035000 



"BEGIN "*X3 
"END •%X4 

"SCHEDLLE">X5 



07040000 
07045000 
Q7O5OQ 0Q 



56 

5!. 



'♦OUTPUT •♦*X6 
•♦»X7 



•♦ON 
"ALL 



" fXfl 



07055000 
07060000 
07065000 



• • 



n 

2 
3 

4 
S 
6 



"TESTS 
"TEST " 
"EXCEPT !1 



"TIMES 

"NO 
"STOP 



"ABREVIAT" 
"NOPAGE " 
"« ES UIT ,, " 






%i2 
XI 3 
JLU_ 



«15 

£1L 



07070000 
07075000 

07oaooon 



07085000 
07090000 
7095000 



07100000 

07105000 

JlZiXOilQiL 



12 



IS 
16 
17 

ie 



20 



24 
2S 



27 



30 

31 ' 



34 

35 
36 

37" 



42 



•9 
SO 



52 



56 
56 



"LP 

"SPO 

"PB D 



*18 
12SL 



"PBT 
"TWX 
"OK 



%2l 
121. 



"OCT 
"BCL 



X2A 
X25 
*g6 



"TESTAPE 

"EU 

"Sy 



A27 
%28 

Ml. 



"DISK 
"ZONE 
'WAIT 



%30 
»3l 
%2Z. 



"NOISE " 

"DELTA 

"READHM.Y" 



*33 



"RD 

"NODATa 
"CONF 



*36 
%|7 



"SK 

"B 

"E 



«2 

»3 



"SCHEO 
"OUT 



«5 
%6 



"ALL 
"TSTS 
_!1I 



*8 

il£L 



"X 

"Tms 

"NO 



X12 
111. 



"ST 
"AB 
"N Q PA G E 



X15 
X16 



*17 



"RSLT 

LOCK (COMP A REBUFF [♦n; 
ENDI 



07115000 
07120000 

Q7i2Sonxi 



07130000 

07135000 

- Q7HQ 00Q. 



07145000 
07150000 

07100000 
07165000 
071/0000 



07175000 
07180000 
0719 0000 



^140307200000 
X150107210000 

aii^uin7220ooo 



ill50l07230000 

X150107240000 

0732Q000 



07330000 
07340000 
07350000- 



07360000 
07370000 
0738.0000 



073<^0000 

07400000 

-OZiXQQQO. 



07420000 
07430000 
07440QQ O 



07450000 
07460000 
07470000 



07480000 
07481000 

: ____^ ^ 07482000 

X*****4r******************»*ir******4rilr***i^*4r********4r*****«***************07500000 



PROCEDURE FILLUNITS; 



FILL UNlTSClf*3 
QCTIOOOOO* 
OCI300001* 



WITH 



07510000 
O75g 000 



OCT5000e2* 
0CT700003* 
0CT110Q0O4/ 



07530000 
07540000 
07550000 



07560000 
07570000 
07560000 



0CT1300005# 
OCTl500e06^ 
OCT1700007* 



07590000 
07600000 
07010000 



m • 



h 



CCTc'lOOOlO* 
0CT230OOU* 
CrT25Q0012> 



07620000 
07630000 
0764QQQ0 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



acT2700013# 
0CT3iOO0U* 
QCT3300015# 



07650000 
07660000 
Q7670QQ0 



0CT3500016* 
CCT3700017' 
CC T6QQ Q r! 2^ 



07680000 
07690000 
07 7Q Q000. 



OCT 1400023; 
COMMENT 
UNITSn>U3.[ltl3 



1 INDICATES THAT LOGICAL 



07/10000 

07710100 

JUJLXQZQSL 



FILL UMTS[0>*3 WITH 



UNIT U IS UNDER CONTROL 
OF DNLINE/MAINT; 



07710300 
077lOaOO 
07^^200 00 



13 

14 



jlB 

he" 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 



«MTA 
"MTB 
"MTC 



07730000 
07740000 
07750000 



"MTU 
"MTE 



ft 



07760000 
07770000 
077tfQOOO. 



33 

34 
35 



•♦MTH 
"MTJ 
'* MTK 






•VMTL 
••MTM 

"MTN 



"MTP 
■"MTR 
**MTS 



••MTT 

•♦OKA 
_!!XLKB_ 



%*** 



07790000 

07BOOOOO 

07610000. 

07620000 

07830000 

Q7B40O00 

07850000 

07860000 
07870000 

07860000 

07890000 

079Q00J.fl- 

07910000 



END; 07910000 

**************************************************************** ****09030000 

DEFINE n90«oono 



*lb0l09060000 



wqrdsvnRdccomparebuff^s^) mod 37 + i«; 

09070000 

'***** ***************************** ****09360000 



%***1i****1i1i1i***ii*Hfti**-l,ii**1,ifk**ii1,** 



37 
38 
39 



PROCEDURE scan; FORWARD; 09371000 

*************#***#*********** A************ *********************** 4*****09372000 

BOOLEAN PROCEDURE TgSTSCHEDULERCNEXTEST); INTEGER NEXTEST; 09373000 



40 
41 
42 



BEGIN 

COMMENT HANDLES THE <SCHEDUl£ PART> OF CONFIDENCE 



09374000 
09375000 
09376000 



coNfBOL cards; 



INTEGER I>N; 



BOOLEAN RO; 

DEFINE RL*REAL#J 

LABEL LOOP»NR*REP*FINDMODlFlERS^XLOOPf ABORNO^E^LOOK; 



09377000 
09378000 
09 379000 



•-i!X50109379100 

X150109379200 

09380000 



49 
50 



52 
53 



DEFINE ERRCERRD'BEGIN eRRORisERRi; 

X 

N» "NEXTEST ; 



GO E; END* I 



LOOPI 



09181000 
09332000 
01363000 



scan; 

IF SPECIALCHRg")" 



THEN GO look; 



IF R0l»R0 OR (35 LEQ Wl»WORD LEQ 36) THEN ^READONLY 
BEGIN 
IF N NEO 



09384000 
09385000 
09385100 



kl50l09385200 

X150109385300 

THEN ERRC50J;iF NOT OISKTEST THEN £RR(53?; Xl 501 09365400 



• • 



h 



16 

17 



19 
20 



23 
24 
25 
2« 



28 



31 
32 



33 



35 



36 

37' 



41 
42 
43 



46 
47 
•8 



49 
50 



52 
53 



S4 



55 
56 



JX 



scan;w»' 
end; 

WlO QR 



BEGIN 
SCANI 

GO nr; 



WQKD, 



h=9 THE N 



SSliJ0l0V3B5500 
X150l093a5600 
ail5P|Q938(i»0Q0 



IF W 



end; 

'8 THEN 
BEG IN 



09387000 
09388000 
09389000 



%ALL 



IF RO THEN ERR(SO); 
FOR I»»l STEP 1 UNTIU 

BF6I N ^__ 



09390000 

09391000 

■flA3 9 2QQQ 



NUM8ER0FTESTS DO 



IF N GTR 63 THEN ERRC4A); 

TESTARRAY[N]» = UUCTF]; 

IF DISKTEST THEN T><QSET f I , TE5TM ASK K 



«150l09392l00 

09393000 

Q0394QQ0 



end; 



09395000 

09396000 

Jtl5 Q l Q9397Q Q 



IF WGRD»9 THEN SCAN* 
IF WORD'll THEN X£XCEPT 
BFGIN 



09398000 
09399000 

09 40 t no n 



XLQQ Pt 



SCAN J 

IF WGR0»9 



09^02000 

09^*03000 

-0 940 AJ3Iia 



THEN 



Ii40709404l00 

«140709«05000 

094Q60nn 



scan; 

if w0rd=10 the^ scan; itest 

IF COUNT GFQ THF.in FRti(i;J); 



IF 



09407000 

09408000 
09409000- 



IF 



NTl»»TEST8UFFERtO] GTR NUMBERQFTESTS OR NTI»0 09410000 
THEN .eRR{23)l 094H000 

TFSTARRAVCN£^TEST4.NTi^i 1i»ni nQ4ignnn 



UISKTEST 
BEGIN 
NT2:'0; 



THEN 



FOR NT3««N£XTCST-1 STEP "1 UNTIL 00 
IF TESTARRAYCNT33.t27t63*NTl THEN 

NT2lgi; 



09412100 
09412200 
09412300 



IF NOT 

end; 
s can; 



BL(NT2) THEN RESET ( NT 1# TESTMASK ) ; 



09412400 
09412500 
09412600 



END 



IF SPEClALCMRs'V*'' 

end; 

ELSE 



THEN GO XUOOPi 



*lb0l094l2700 
09412800 
0941 3 PQQ 



NR« 



IF SPECIAtCHRs"(" THEN IF RQ TH£n ERRC^I) ElSE 

IF testscheduleR(N) then go e else Scan else 

IF COUNT lSS THEN 



09414000 
09415000 
09416000 



BEGIN 

IF NTlJ«T£STeUFFEeC0 3 
ERRt23)J 



<H150109417000 

09418000 

09419000 



QTR' NUmBEROFTESTS OR nT1»0 THEN 



IF RO THEN 

IF RLCBlCENTIERC2*NT1)) 
ER«(52?; 



09420000 
09*22000 



AND BlC 3"42520"))»0 THEN 



IF N GTR 63 THEN ERR(44); 
TESTARRAYtN3»«UNTUCTF]SiRL(RO)C«»47U3; 
IF DISKTEST THEN IF RO THEN 



»150109422100 
X150109422200 
%150l09422300 



TW0SET(NT1»RUMASK) 
N««N+i; 

scan; 



09423000 
X150109424000 
X150109424100 



ELSE tinosetcnti^testmask); 



END ELSE ERRC12)J 
IF SPECIALCHR*"," OR SPECIAUCHHa" )« THEN QO LQOk; 
FINDMOOlFlERSt . 



X150109424150 
09425000 
09426000 



09427000 
09427100 
0942^000 



J< 



10 
11 i 
12 

13 

14 I 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 < 

24 

2S 
26 ( 

27 

28 

29 I 

30 

31 

32 ( 

33 

34 

35 i 

36 

37 

38 ( 

39 

40 

41 < 

42 

43 



46 
47 I 
48 
49 
50 ' 
51 
52 

53 < 
54 
55 
56 ' 
5? 



• • 



>r 



12 
13 

14 

r. 

16 
17 
IS 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
30 
31 ~ 



32 
33 
34 
35 
36 
37" 



38 
39 
40 
41 
42 
43 



46 
46 
47 
IS 



50 
51 
52 
53 
54 
55 
56 



IF SPEClALCHR»"x" 
BEGIN 

scan; 



THEN 



09^^9000 
09430000 
09431QQQ 



REP» 



IF JUNKBMCOUNT GEO TH£N ERRdUi 

TF NTt tiTCSTBUFFEarQj LFO EMPTY ANQ nTI ftTR THEN 



BEGIN 

FCR IJ*N-1 STEP -1 LNTIl NEXTEST DO 

IF NT?>qTFSTARKAYri]»[CF] G TH fl TH E N 



09«320G0 
09«33000 
n9<tl4000 



IF NT2«"1 THEN 

T£STARRAYEI3.CCF3:«<^T1 
ELSF FR«f 14>; 



0943500C 
0943600C 
0943^000 



09438000 
09439000 
09440000 



END 
ELSE ERR(14); 

IF JUNKB, THEN 



BEGIN 

scan; 

IF WORD 



09441000 
09442000 
09443000 



JX 



end; 

END else 

j unkh »= cqunt 



NEQ 12 THEN ERRMQ)J 



09444000 

09445000 
QQ4A6non 



< THEN GO R^P 



IF 



WtwWQRO 
BEGIN 
NT3I»1> 



37 THEN 



*nodata 



09447000 
09446000 
ail5QlQ94490Q0 



IF W 



GO aborno; 
end; 

= 13 THE N 



«150t09449l00 
1150109449200 
lia0lQQ4a9^QO 



»N0 



*150109449400 
*150109449500 
X 1501 94 50 0QQ 



ABORNOI 



BEGIN 
NT3I«4; 



FOR 



STEP -1 UNTIL NEXTEST UO 



I l*N-l 
BEGIN 
IF TESTARRAYCn.CHJ] 



09451000 

X150109452000 

Q945300Q 



TESTARRAYtIX.tH33t«NT3; 

IF CNTi«*TESTARRAYtU.t27»63) 

BEGIN 



NEQ THEN ERRC22); 



09454000 
09455000 
ail50l0945600Q 



MOO to 8 3 THEN 



TWOSeTcnTI^NDMASk); NT2!s1; 

FOR NT4JS NEXTEST-I STEP 'l UNTIL DO 

IF (NT5»gTESTARRAY[NT4J ).[27»63gNTl 



X150109457000 
!8l50lO94570l0 
115010945/020 



IF NT5.cn 33 s THEN 
NT4»«fNT2S*0; 
IF BL(Nt23 THEN RES£T(NTl»TESTMAtK); 



X150109457030 
X150109457040 

THEN 09457050 



END 



IF W 



'15 TMEN 

lEGlN 

NT3t»gj 



END' 

end; 

E LSE 



X150109457060 
X150109457070 
X1501 09457080 



XABREVIATE 



X150109457090 
09457100 
09457200 



IF 



GO ABORNU; 
END ELSE 
W*33 THEN *NQISE 



09458000 
09459000 
K150109460000 



09461000 

09462000 

X140309462100 



BEGIN 
NT3t*6; 
GO ABQRNDj 



END ELSE 

IF W«32 THEN *WArr 

B EGIN 



X140309462200 
X150109462300 
X140309462it0Q 



scan; 

if count geo then err(45); 

ir NTll«TESTaUPFgRt03 6TR "^M 



!liia0309462500 
09463000 
09464Q0Q 



THEN £ffRCaA3l 



09465000 
0946^000 
09467000 



• • 



h- 



10 



12 
13 
14 
15 
16 



17 
IB 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 



39 
40 
41 
42 
43" 



45 
46 



•6 
49 
50 



52 
53 
H 

S5 



FOR i:=N-l STEP -1 U1\TIL NtlXTEST 00 
BEGIN 
TF Tr.STAnRAY[T3it1Ht93 (jTH U T H ^N f^HH( a 7)/ 



TESTARRAYtI3ai8>$3»«NTi; 
END* 
END ELSE FRRf3A>f 



scan; 

if specialchr*")" 

BEGIN 



OR SPECIAuCHHs' 



THEN 



LOOKI 



nextest«»n; 

IF SPEC! ALCHR****!^ THEN GQ LQUP ; 



ENU 

EtSE GO FINDMODIFIERS; 
JLL ni SKT E ST T HF.N 



09468000 

09469000 

09470000. 

09471000 

09472000 

947 3000 

094^3100 

09474000 

09475100 

09476000 
Q 94770 QQ. 
09478000 
09479000 

a;i50iQ9479ion- 

X150109479200 



u *. v , ' , y .i,i-,, y . i Li , \n\ <i I 3mu.'i<t r Y ivu 

IF C(TW0T(2/TESTmASK) AND SEGS < 2) OR X150109479200 
(?H0TCl2#fESTMASK) AND SEQS < 30)) THEN ERR(28); X Ib0l09479300 
FAL SE THFN . 09481000 



E» 



TESTSCHEUULER»=TRUEi 

END OF testscheduleh; 

iili * * ***1, ******* H*** ■k-kiiinilili Itiiiili ********** QQU'jQQQC 

1150109490100 



%*******************************■ 



09482000 
09484000 



it*nT^^'*'*^*yt*^******T'****it***m*''*^***^*******M* « ih * w » 

PROCEDURE PRINTCCA«DS(CCS#cCCOUNTVTOG); VAIUE TOG; 
ARRAY CCSC*]i INTEGER CCCQUNT; 
BOOLEAN TQGJ 



)kl50l09490200 
11150109490300 

%15Ol09490400 



COMMENT PRINTS THE KlSST lOxCCCOuNT wUHOs OF CCS[*3. 

WILL PRINT CCS lO WORDS AT A TiMe TO EITHER ».«-»-,., -^>,„ 
LINE CTQG TRUE) QR OUTFI. Tht ACTUAL PARAMETER lil 50 1 09490600 



*150109490500 



BEGIN 



PASSED AS CGCQUNT IS SET TO 2ER0 AFTER THE 
fRINTiNG IS COMPLETED^ 



% 



INTEGER W 

FOR ii'Q STFP 1 UNTIL CCCQUNT DO 



BEGIN 
IF I NEQ 

IF TOG THEN 



Then MavE(io*ccscixio3'ccs)i 



cccountj 
end; 



WRIT£(LFILE[QBLJ*10^CCS[*]) 
ELSE WriTe(0UTfUDBLJM0*CCSl*3); 



'9} 



X150109490700 
I150109490800 
iiH 50lQ 9 ft 9Q9QQ 
Xlb0l09491000 
X15010949UOO 
il H i? q | U9491 ?Q0 
31150109491300 
1150109491400 
115010949 1500 
1!150l09491600 
31150109491700 
^ 3. 5 Ol Q9^9 1fl00 
X150109491900 



end; X1S0109492000 

%************************* If ****************************** 1, 1, * * * * It ii * * i, I1 * * * XOQ liOOOQ 

PROCEDURE CONTROLCAROERROR; %150H0840100 

BEGIN X150110840200 

%********************************************************* * ********io840300 

STREAM PROeEOUREERROUTCOytSlJfFER'CQUNT* 10850000 

rTRi5Tfir.4iti.UAir WT .r rti kTHnftlif F .raHnp ^ s inAAhAhn 



F IRS TSCAN* MAI NT* COL*ERRBUFF, ERROR); 
VALUE COUNT»riiSTSCAN#MA INT* COL»£RROR? 
COMMENT SPCUTS MAINTENANCE CC ERROR mSGS; 
BEGIN 



nllaOUTRUFrER; 



051*14 lit "#maint cc errc; 
sh«errbuff; 

FR RQB(SI»» SIt l6?; 



16(IF SC="%" THEN 

BEGIN SJJaSl + i; OS:eLlT •'""; END 
ELSE IF SC«"*" THEN JUMP OUT ELSE DSisCHR); 



10860000 
10870000 
10870100 
10880000 
1 Q89Q 0QQ 
10900000 
10*10000 
10920QQ0 



DS11.5 LIT ")CRO "; 

siisLOc maint; 051^2 dec; 0S»«LIT 



10930000 
10940000 
1Q95Q000 



'f; Dsi*2 dec; 



10960000 
10970000 
1 098 0000 



>r 



SI j^firstscan; dsjscount chr; 
DS:=LIT "]•♦; 



10990000 

iioooooo 

nOJOOQ-Q- 



end; . X1501U0301G0 
IF WORD MFC 14 THFIM UlSOl 1 l03Q^0n 



BEGIN 



IF ERRCR LEQ 29 THEN 
BEGIN 



FILL JUNKBUFFERC*J rtiTH 
"INV 1ST "-""WD* 



"KD DSK A''*"DDR* 
"NO %:%* '•*" 
"NO END* '• • " 



"NO SCHKD"*"* 
"XTRA TRA"*'»NS* 
"XTHA Ou*"^" 



"INV OU* "*" 
"CUP TEST"*"#* 
"NQ ^TlHr";"S:t* 



* 

•* 



"NO x|NT*"#" 
"NO TEST*"*"* 
"INV FXC£"/"PT* 



"iNV TIME"*"3* 
"NO TE3TS"#"* 
"INV SCHF'^^"Q* 



"XTRA XAL"#"L»* 
"XTRA EXC"#"EPT* 
"NO %aLlX">"* 



"NO EXCEP"*"T* 
"INV XNOX"*"* 
"XTRA %n0"/"II* 



"INV TE3T"#"#* 
"NO %,%* "»" 
"TNV nSt^ "^"AnOR* 






It . n 



"NO %»%* "f 
"INV REQU"»"EST* 
"INSUF SE"^"GS* 



"INV UNIT" 

END ELSE 
BEMN 



,«* 



IF |RR0R«»E«RaR-30 = 4 THEN COUNT J =SPEC I ALCHR J =0; 
FILL JUNKBUFFERC*] ^HH 

"INV CC*.".f" " - 



"INV CHi*"#'» . "* 

"NO m* "*" "* 



"INC0MPLE"»"TE CC* 

"INV PROG"*" NAME* "**35 

"NO EH NR"*"* "»a;36 



•INV EU N"#"8* 
"NO SU NR"*"* 
"INV SU N"#"R* 



"NO DISK "*"NR* 
"INV DISK"/" NR* 
"NO ZONE "/"NR* 



X37 
"*i<36 

>ai39 



"INV ZONE"*" NR* 
"TOO HANY"*" TESTS* 
"NO WAIT "***TlMt.* 



Mi<(0 

'*»41 
'»*42 



"*X45 



■U50111030400 
X150U1030500 
itl501U030ftOn 



X150111030700 
X1501U 030800 
XIS QI 110 30900 



«15U111031000 
*150111031100 
!tl 5O U l O31 2O . 



X150111031300 
X1501H031400 
:tlS0lll031'^QQ 



*150111031600 
X150111031700 
1i!'>QlUQ.M8nO 



«lbgUl03l900 
X1501U032000 

11501 11 0321 Qn 



*150lllO32200 
X150111032300 
aslSPl 11032400 



X150111032500 
*1501U032600 

a;iaoiii0327QQ 



*150111032800 
X150111032900 
;t li3 U 1033 QQO 



X150U1033100 
1150111033200 
X150in933'^Qfl 



*150111033400 
*150U1033500 

!|il50lUQ33600 



X150111033700 

Xlb0lU033e00 
3H50111Q33900 



%150lll034000 
%150111034100 
X15QlU0342n0 



Xi50lU034300 
X150U1034400 
IttSOn 1034500 



a;i5oiiio3460o 

*150111034700 
ll50UlQ34flQQ 



X 150111034900 
X1501M035000 



XlbOiU035200 
X150111035300 
atl50lll03540Q 



Xi50ill035500 
X150111035600 
X15gni035700 



2 
3 

4 
5 
6 

7 

a i 

9 
10 

n I 

12 

13 

14 I 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 ( 

39 

40 

4, ( 

42 

43 

44 { 

45 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 { 

54 

55 

56 * 

57J 



• 



m t 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 



13 
14 
IS 



16 

17 



19 
20 



21 
22 
23 
24 
2S 
26 
27 



28 
29 
30 



31 
32 
33 



34 
35 
36 



37 
38 



39 



40 
41 



42 



45 

46 

47 

«8 

49^ 

50 

61 ; 1 

u 

»3 



55 



56 



"INV WAIT"*" time:* ",X'46 
"OUP WAlT"f" TIME* ",%u7 



"SFCU NOT"'" READY* "»X«9 
"1 TST ONw^^UY Ofi R0",%30 



%150l 

atnm 



XlSOl 

X1501 

JLIMI 



end; 



"INV RO T"#"TEST #* "*X52 
"RO INV 0"#"N TAPE.* ";*53 



X1501 



ERR0UTC0UT8UFFER*ABSCC0UNT)>^ X15QI 

REALCSPECIAUCHR N£Q ) ,FIRSTSCAN#CR0# XlSOl 

Sx(FtRSTSCANvE33»lSi*C0READDH(lNPUTHUFFER))4 it 1501 



FIRi>TSCAN.t2n6] + l,jUNKBUFf£R*£HRaR); 
»NRlTE(CFILE'9'QUTBUFFi:.RC*J); 



end; 



X1501 



end; 



X********** ******************************************************* ****** 
STR EAM P R OCEDURE ROTATECBUFF, JUNK>N#LEnGTH )# VALUE BUFF. N^LENG rH; 



COMMENT ROTATES THE CHARACTERS IN A BUFFER IN A 
CIRCULAR FASHION* BUhT CONTAINS THE 



CORE ADDRESS OF THE BUFFER # JUNK IS 
PASSED BY NAME ANU IS USED FOR TEMPORARY 

STHRAGF. AT lEAST M nHAi^ArTFBS Apr RFQUTMFn 



AT JUNK. LENGTH 5HECIFIES THE; LENGTH OF 
THE BUFFER IS CHARACTERS; 



BEGIN LOCAL L*NN#NNN*LL; 

sn«L8C LENGTHiOljsLOC Li SI isSI + bi 01 1*01 + 7; OSI*CHR| 

SH»LQC N; ntlatOr NN t STt«ST*6l nTtani*7y nStsCHp; 



siuLOC n; siJ = si+5; di»=i.oc nnn; dii*di + 7; dsischr; 
siiaLoc length; siJ«si+5; oijxLUc ll; UIS5DI+7; ds»«chR; 

DI»*J[JNK; Sli-RUFFi . 



NNN(8(i6(0Sl«32 CHR)))> 

nncdSi»32 chr; oS{»32 chr); osibn chr; dusBufF; 

LL(8C16(DSI«32 CHR))); ^ 



L(DS«s32 chr; DS:=32 CHRJ; DS:aLEt\GTH CHR; 

sit=juNK; dis'Buff; 

ULC8(!6(Dl»«pI>.ii3)))7 



LCOn«DI + 32; DIlsOl + 323; oi »sdi + length; 
NNN(8(16(DSi»32 CHR)))I 

NNCDSfsa chr; DSi«32 CHR); ost«N chr; 



end; 

SSET OMlTaOMITINTE«PRETER 



%****************************»*»*•**********•*************************** 



STREAM PROCEDURE BUFFERSHIFT (S/ A,8#N*RT »HETO ); 

VALUE s*a#b*n»rt*hetq; 



COMMENT BUFFLRsHIFT WILL SHIFT THE CONTESTS OF 

A BUFFER RIUHT QH LEFT BY S CHARACTERS, 
HETO DETERMINES IF THE RESULTING PATTERN 



IS TO BE LEFT IN THE ORIGINAL BUFFER 
(HETO-0) OR GENERATED IS A SEPARATE BUFFER 
(HET0»1?. A CONTAINS THE ADDRESS OF 



THE BUFFER BEING SHIFTED. B CONTAINS 

THE ADDRESS OF THE BUFFER IN WHIcH THE RESULT 

IS TO BE PLACED (A»B IF HETO=0). RTsl IF 



THE SHIFT IS TO THE RIGHT AND »0 IF SHIFT IS 
LEFT* N SPECIFIEJ* THE LENGTH OF THE BUFFER 
IK CHARi^CTERS MINUS S> . 



035800 
035900 
Q360O0 



036100 
036110 
036120 



036130 
O36H0 
0362QJ}.. 



036300 
036400 



036600 
036700 
P366QQ. 



OSOOOO 
050100 
05Q200 



050203 
050205 
050210 



050215 
050220 
050225 



050230 
050235 
050240. 



050300 
050400 
050500 



Oi3 0600 
050700 
050800 



050900 
051000 
051100 



051200 

051300 

05UQ£L 

051500 

051600 

051700 



051800 
051899 
051900 



052000 
052100 
052103 



052105 
052110 
052115 



052120 
052125 
052130 



052135 
052140 
052145 



052150 
092155 
052160 



h- 



BEGIN LGCAL NN» SS* SSS/ NNN> LABE.L XIT; 

siiaLoc Hi si»=sn-6; ousluc nn; dh-ui*?; ds:schr; 



0^2165 
0b2200 
052300 



3 

4 

M 

6 



2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 



SIlsLOC S; Sl»aSI + 6; DUsLOC SS; DUaDIf/j OSIsChR' 
SI>«a; DlioBf 

RTfSSStfif i6fDII»UI-f32))); SS CDHaQH- 32J 0II<DI>33)f 



052400 

052500 
052600 



DI}=OI+S; 

NNNC8C16(DbS»32 CHR)))J 
NN(Q S«« 3? C H H ; D S<«3 2 CHR )j 



DS;«N chr; 



052700 
052800 
Q;329QQ 



HETO(SI Iba; DI i«SJ 

SSS(8£l6C0St»32 CnR)))! 
- S S { nS » a ^ 2 C HB r n S t g 3 2 C H R ) t 



.nsfas cHR)i 



JUMP OUT TO XIT); 
SSS(8(16(Sl}=SJl + 32n); 



053000 
05 3 i 00 
053200 



s n=sns ; 



053300 
053400 
053500. 



10 



14 

^5 

16 

17 

18 

19" 

20 

21 

a 

23 
24 
25 
26 
27 



NNN(8(16<0S««32 CHR))); 

NN(0S»«32 CHRi DSJ»32 CHiJi DSI«N CHRi 

HETnfSIlBAI 



053600 
053700 
Q53600 



13 
14 ( 
15 
16 
17 ( 
18 
19 
20 ( 



NNN(8C16(SI JsSl+j2); Ji 
NN(Si:»SI+32; Si:aSI+32)/ 
5S.S{a(lft(DS?s32 CHRP ))i 



Si:=si+N; 



053900 
054000 
054 10 



SS(DSt«32 CHRi DS!*32 CHR); OSiaS CHR); 



xiTJ end; 



054200 
054300 
054301 



BOOLEAN PROCEDURE fE STaDDHCSS ( ADDR )/ VALUE ADDRi 
iNTEfiER ADDR; 



**** 



060000 
070000 
O S OOOO 



28 

29 

30 

31" 

32 

33 

34 

35 

36 

"~ 

38 

39 

40 

41 

42 

43 



COMMENT RETURNS TRUE IF AOOR IS 

: anriREss. . . 



AN Invalid disk 



O8O005 

080100 
080105 



WARNING--— THIS KQUTINE WiPEo OyT 
T ESTBUFF'F JR fQJ - 



oeoiio 

080U5 
Q80l?fl 



26 \ 

27 
28 
29 ( 
30 
31 
32 { 

34 

36 ( 

36 

37 



BEGIN 



080125 
080130 
090000 



REAL i; 

TESTADDRESSSaCI JsDECMAL(A00R)),[6J6] GTR 9 OR 
I*C12»6] GTR 3 UR BOOLEAN CDI SK 10 ( TEaiBUFFER/ -0^ 



100000 
UOOOO 
120000 



ADDR)tC2Tll]); 

end; 

% * **************** ii^* * it ***** 1, *^:ii ****** 4' ***'** if ********* w 



UOOOO 

140000 
I5Q000 



38 [ 

39 

40 

41 ( 

42 

43 

44 ( 

45 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 ' 

54 

55 



PROCEDURE CLEARAREA; 
BEGIN 



160000 
170000 

170 005 



45 
46 
47 
48 



COMMENT ■ CLEARAREA IS CALLE 
OISKTESTS A»E RUN. 
AREA ON DISK FROM 



D BEFORE ANY READ/WRITE 

IT DETERMINES IF THE 
"BEQINADDR" THRU "ENDADDR" 



170100 
170105 
170110 



CONTAIN 
MESSAGE 
ARE PRI 



S ANY LOCKE 
S INDICATIN 
NTED AND TM 



D OUT AREAS. IF SO 

G THE LOCKED UuT AREAS 

E USER IS ASKED IF 



170115 
170120 
170125 



49 

50 



61 
52 
53 
54 



56 



HE WISH 

ELECTS 

INPICAT 



ES TO "SKIP 
TO SKIi# "W 
ING THAT A 



" or "stop". if he 
rtlock" is set to true 
portion of the test area 



170130 
170135 
U0140 



IS LUCK 
WILL BE 

SCHEUUL 



ED OUT. NO 

PERFU«MED. 

ED) >^ILL BE 



NORMAL SEG WKiTE TESTS 

READ TESTb (IF ANY ARE 
RUN IN THE ENTIRE AR£A. 



170145 
170150 

1/015 5 



IF THE 
MAINTEN 
R4iN IN 



ENTIRE AREA 
ANCE SEGMEN 
TMOSE AREA^ 



IS NOT LOCKED OUT, THE 
T WRITE TESTS WILL BE 
NOT LOCKED OUT, IF 



170160 
170165 
170170 



# t 



>r 



10 

11 



16 
17 
18 



19 
20 



21 



24 

IS 



27 
28 



30 



32 
33 



34 

35 

36 

3?" 

38 

39 



t2 
•3 



47 
«8 



SO 



53 

54 
SS 

56 



THE USER 
BRANCHES 



"ijTQH" 



WISHES TU 

BACK TO HETlHN, 



THE PHOURAM 



IF NO LOCKOUT PROBLEMS ARE ENCOUNTEReO ANO 

NORMAL SEGMENT WRITE TESTS A#E REQUESTED* 

A CALI IS MAOE OlV THr MrP ROUTTMr wnKPmSlMliSSw^ 



THE PARAMETER PASSED TO THAT KQUTINE 
IS AS FOLLO»VS« 



CI Ml wl 

C15US3«A00HESS OF MEMORY LOCATION 
USED TO WAKi>- tip UNLTNg/MATNT 



WHEi\ DKdUSXiNESS FINISHES. 
MCP '^ILL PLACE THE VALUE 

1 liV TH A T LOC A TIUN wH E N 

FlNiSHEO UNLESS MCP HAS BEEN 
COMPILEO WITH SHARDISK SET AND 
CHANGr ALinaTMr. xn nN SHARrniSK 



E 30133 aO 
C33M5 3»AOOHESS 



HAS NaT BEEN INCLUDED. IN THE 
LATER CASE* A 3 IS PLACED IN 

T HE *^Q ^^I), „„ 



OF tO*rtQRD ARRAY 



WORD UF ThL ARRAY CONTAINS THE 
BEGli^iMlNG DIbK ADDRESS 



WORD 1 CONTAINS THE 
BE TESTED 



NUMBER OF SEGS TO 



THE MCP BuIlDS A 
JUST A3 IT WOULD 
XD MESSAGE* THE 



"CLEARED" EXAMINES THE 
IF THE MCP WAS ABLE TO 
FILE IN THE AR£A« 



MESSAGE IN THE ARRAY 
IN RESPONSE TO AN 
STriEAM PROCEDURE 



MESSAGE TO DETERMINE 
CREATE A "OKTEST"" 



IF THE "XD" ACTIUN 
RDUTINF- IS EXITEGy 



IS SUCCESSFUL. THE 
QTHERWISk* THh: 



MESSAGE PLACED IW "INPUTBUFFEH" BY 

"DKBUSINESS" IS OEBLANKED AND MOVED 

TO "OUTBUFFER'* by the PROCEDURE '♦OEBLANKER" 

BELOW. THE MESSAGE IS THEN WRITTEN ON 
THE SPO OH REMOTE TERMINAL. THE USER IS 
THEN GIVEN THE OPTION OF ENTEHINq "SKIP"* 



"STOP"* OR "OK". IF "SKIP" lb ENTERED* 
NO NORMAL SEGMENT WRITE TESTS WILL BE 
PERFORMEDt ANY OTHER TESTS SCHEDULED WILL 



BE RUN* HOWEVER. IF "STUP" IS ENTERED* 

THE PROGRAlvi BRANCHES TO "RETUKN", 

IF "OK" IS ENTERED* THE CALL ON "DK3USINESS" 

IS REPEATED MSSUMEDLY* THE uStH HAS REMOVED 

FILES FROM THE AREA BEFORE ENTERING THE "OK"), 



»SET OMITsOMlTDlSKTESTS QR DEBUG 
LABEL TRYCREATE*KBD»XIT; 



REAL BUFF*A0OR#Si£ePER*JUNKI 

FORMAT LOrC^SCQS "fid*** TO »#I8#" LOC«EO OUT"f 



.^.^:t£ii':»Mi:$%.',,m.^^^*:iM»»i^', 



1117017b 
11170180 
1 il7Q\f\'S 



11170190 

11170195 
1 i17oann 



11170205 

11170210 

-Ui.I0215 



11170216 

11170220 
11170335 



U170230 

1U70235 

11170240- 

11170245 

11170250 

1 117Q2'i'i - 



11170260 

11170265 

JJjuZ-0270,, 



U170275 
11170280 

U170290 

11170295 

-11170300 



11170305 
11170310 
ttl7Q31'i 



11170320 

11170325 
1117033Q 



11170335 
11170340 
1117 0345 



11170350 
11170355 
11170360 



U170365 
11170370 
11170375 



11170380 
1U70385 
11170390 



11170395 
11170400 
11170405 



11170410 
11170415 
11170420 
11170425 
lU 70430 
U 1 70435 



111/0440 
11179999 
U180000 



11190000 

iiaooooo 

Mi ij B ..w«i B iij B M M ii ifjg .i, 



T< 



12 
13 



15 
16 



19 



23 ' 



27 
28 
29 ' 
30 



34 

3S< 
36 
37 
38 < 



47 

48 

49 

50 I 

51 

52 



SB 
S.I 



e 



NOTAVAILFCNORMAL SlG wHlTE. TESTS NOT AVAIL"* 

, "WITH, Shared I SK" 3 1 



aHOa 



220000 
230000 
2^0000 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

U 

tl5 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

3D 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 



ALREADYC TEST AREA ALREADY CLEARErjCIN USE BY ". *H0« 
A6*'»/''#*1#A6#")")| 

I NTE GE R IJ . 



250000 
260000 
30Q000 



BOOLEAN so; 
BOO LEAN STREAM PR OCEDU RE CLEARfc tJC BuFF ) ; „______ 



3X0000 
320000 
33QQQ0. 



BEGIN 

LOCAL TEMP#TSn 

LABEL LI 



340000 
350000 
360000 



SU=BUFFi IF SC = " " THEN 

BEGIN SlJsSl+l; IF SC="D" THEN TALLY:*!; END ELSE 

BEGIN 



370000 
380000 

MQSISL 



H 



SlJsSl + 39i TSllsiili 

DI>«LOC temp; DS»«6 LIT "DKTEST"; 

Q Tr»n i-6; 



400000 
410000 
4? 0000 



L» 



IF 6 SC*OC THEN 
BEGIN 
TFMPtsTAlLY/ 



4JOO0O 
4«0000 
450000 . 



0IJ8DI''6; SU*SI + i; 
IF 7 SC GEQ DC THEN 
BEGIN 



460000 
470000 
480000. 



TALLYSS3; Si:*TSi; DlJsBUFF; 
0S132 LIT "0"; DSJ36 CHR/ 
S l <gSl *i; DS!=LIT " 0"; DS:s7 CH H/ 



490000 
500000 
^ l O QQiL 



end; 

END ELSE 
BEGIN 



Dl«»LOC TEMP; dS:«6 lH "BaDISk"; di»«sdi-6; 
SlJsTSi; IK 6 SCsDC THEN GO L; 



520000 
530000 
540000 



end; 



bbOOOO 
560000 
570000 



end; 
cleared8«tally; 



end; 



580000 
590000 
600000 



STREAM PROCEDURE DEBlANKER C A,B ) ; 
BEGIN LABEL L^Btii 



610000 
620000 
630000 



sit«A; oir»B; dsi»chr; 

LI IF SC NEa ««•" THEN 
BEGIN 



640000 
650000 
660000 



BBi 



IF 5Ca" •• THEN 
BEGIN 

si»=si^i; 



670000 
680000 
690 QQ0 



45 
46 
47 
48 
49 
SO 
51 
J2 



IF SC*"* " THEN GO 8B> 
IF SC^ALPHA THEN 

flEftiN sii« s i*i; dS{«;c hr; e nd; 



700000 

noooo 

22Q0Q0 



GO l; 
end; 
ds»= c h h ; g u l; 



730000 
740000 
750Q0Q 



end; 



end; 
05i«LiT "••♦♦; 



760000 
760000 
8Q000O 



%****•*********•******************************************************** 



LOCKWCRDJaO; 

IF realcctestmask and not rumask) and 



iitlbOl 



810000 

6UO00 
812000 



ss 

S6 
57 



bl<3«57762«)) ne« then x1501 

nqwrti,»«rtlqck»3False; 

FOR ADDR»»l0000x(BEGINAD0R OIV ICOOO^ STEP iQOOO UMTIL 



813000 
620000 
630000 



• • 



h 



10 

11 

12 
13 



lOOOOx(ENDADDH DH 10000) + 99s)9 DQ 

IF BO0LEANCDISKl0(TESrBUFTErt^0*ADDR),C2atl]) THEN 

BEGIN 



TWQSET((ADOR OlV 10000) MOD lOO#UOCKWQRO ) / 
WRITE(CFlLE*L0F»ADDH»A0DR + 9999;i 
AOnR DTV IQOQQQQ. 



U840000 
U850000 

naAQOQo 



((I«=(ADDR DIV iOOOO) MOD 100) MOD 4)+ 
((I DIV (4xDKTYP£))x4) + u; 

WRTLQCK{»TKH£i, 



11861000 
11870000 

iiasonnn 



END) 

IF HRTLOCK THEN GO KBOl 

FOR It«g^3#6*9«lQMl.l2M3#14 



11890000 
11900000 
11910000- 



J3J1. 



GO 



ROMASKj; 

xit; 



11920000 

11930000 
a!l50ltl940QQQ 



X150111950000 
11960000 



wRTLOCk:=WRTLOCK DR TWaT(I*TESTMAi)K 

IF INRTLQCK THEN WRTLOCK : sF ALSE EL^t OQ Xli; 11960000 

— BUFF{»-(ADDRtaCUR£.A00HCSLEEPER))aCDREADDR(lNPUTBuFFER[lJJll9ynnnn 

C15I33J151J U980000 

TRYCREATEI 11990000 

IgOOOQQQ 



iNPUTeUFfER 1 03 » »aEG iNApnR; 



INPUTBUFFERCl3s=5tGS; 

sleeper:so; 0K6usines3(Buff); 

IF SDi=SLEEPER«=3 THElV 



BEGIN 



W R I IE t CF It £#I«QT AVft I ^F ) | 

60 hbd; 



END ELSE 
BEGIN 

DFRLANKFRf iNPlJTdUFFFR.O.iTHtirFFR^: 



X150112010000 
12020000 

12030000 

12040000 
12050000 

12060QOQ 



12070000 
12080000 
l?QVQ00n 



end; 

IF NQT 



IF REALtARiACtEAREDJaCLEAREDCOUTBUFFER)) LSS 3 T^EN 12100000 

WRITC(CFILEMO*OMTBUFF£R[*3) ELSE 12U0OO0 

W RlTFfCFn E.AlMAnY.QUtMUFFrRrQr.f-HiMKi« iglsQnnn 

0UTBUFFEHCU),C6Je,3*JuNK); 12130000 



KBOi 



BEGIN 



AREACLEAKFU THEN 



12140000 
1215 QQ QQ 



IF ^UNKkSKIPSTQPOrOHcNOTCWrTIOcK Or SD)*TRUE)a? 

THEN GO RETURN ELSE 
IF -JUNKsl THEN 

BEGIN NUwRT»»TRUE;Ga 



12160000 

12170000 
1218 0000 



end; 



IF UUNKs3 THEN 
GO KBOr 



xit;end else 



GO TRYCREATE ELSE 



12190000 
12200000 
12210000 



SPOP OMIT 



XITl 



12220000 
12230000 • 
12350000 



END OF clearahea; 



%140412355000 
123b500l 

^ ti,Lfti-<AntA> ^ ^ _____^ 12360000 

X*********#*t#**i«t*»* ************** **********#*****<i^**^^^^^^^^^^^ 

STREAM PROCEDURE OLEANWOVtC A»B3; 12370200 

12370300 



BEGIN" 



COMMENT CLEANMOVE IS USED 
A TO B. TRANSF ER 



TO MOVE CHARACTERS FROM 
CONTINUES UNTIL A LEFT 



ARROW IS INCOUnTERED IN THE SOURCE STRING; 
LABEL l; 
Dli»B; oSigfl LTT ** "; sh»b; dS>»9 wns; 



12370305 
12370310 
12370315 



sIi-a; dI:*b; 

L« IF Sc NEQ ♦♦«•" 

ENn; 



12370320 

12370400 

XU0112370SQQ 



THEN BEGIN DSt^CHR; GO l; END. 



BOOLEAN PROCEDURE SAFESCAN; 



12370600 
12370700 
1 23706 00,. 



— . i e." I vovM 

12380000 
12380005 



-^i 



2( 

3 

4 
5( 



7 
8 
9 

10 

II 

12 

13 

14 ' 

IS 

16 

17 I 

18 

19 

20 ' 

21 

22 

23 I 

24 

26 

26 ) 

27 

28 

29 ( 

30 

31 

32 I 

33 

34 

35 i 

36 

37 

38 i 

39 

40 

41 < 

42 

43 

44 I 



46 

46 

47 

48 

49 

50 

51 

5J 

53 

54 

55 

56 ' 

57 



m 



• • 



h 



COMMENT USED TO SCAN CUNTHUl. CARDS AND DUUL.AR CARDS 
TRUF IF 1) END OF CARD IS KtACHEO* OR 

2) A bEMICQLQiM IS ILNCGlNTERED* ON 



23*^0000 
2^00000 
2^1 00 00 



3) A PEKCENT sign li ENCOUNTERED 

ON A DOLLAR CARD 



2410100 
2*10200 
3 010300 



BEGIN 

label 8ack»e0 
fi rstsca 



f; 
n;= l astscan ; 



2*10400 
2*20000 
2*30QQQ 



9 

10 

11 

12 

13 

14 

116 

|1B 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

to 

41 
42 
•3 



BACKJ 



SAFESCAN«a(COUNT«»SCANIT) 
SPrCTALf:HR««JH QR 



GTR 16 OR 



_LL 



CCQMPILING AND SPEC I ALCHRs"*" ) UR 
SPEClALCHRa","; 
SPECIALCHRs"." then FIRSTi)CAN{*LASTSCANlBlNP*10; 



-l^ 



2*31000 
2**0000 
45i 



iOOOO 



IF SHECIALCHR»»t-« AND NOT COMPILING THEN 
BEGIN 
FlRSTSCAN:»LASTSCANi»INP; 



2*b0l00 
2*50200 
2*b0300 



READCINFILE*10»INPUTBUFFERC«J)[EOF3; 

ACCUMuLAT0RJ=CQHEA0DR( JUNKBuFFER)/ 

C RD»-C R D*ll 



2*50*00 
2*50500 
2* §060Q 



IF CCC0UNT«19 THEN CCCOUNTtaOJ 
CLEANMOVEClNeuTaUFFER#CCSCCCCCQuNTla 
CCC0UNT*1)J<103); • 



2*50700 
2*50800 
2*50900 



EOpi 



Gc back; 

£QFTO g;»TRU£ j 



2*51000 
2*51100 
2*51200 



end; 



GC 
END 



PERROR/ 
; ■: 



2*51300 
2*5H00 
2*51500 



SSET OMITsOMjTCOMPI 



2*51600 
2*51700 
2*60000 



LER 
***i 



INTEGER PROCEDURE DOLLARCARD; 



1 

I 



2*69999 

2*/0000 

2*80000 



BEGIN 



COMMENT HANDLES DOLLAB CARDS OuRlNG SiMPi COMPILATION. 



2*90000 
2'»90003 
?*9Q005- 



REJECTS ALL DULLAH CARDS THAT OQ NOT BEGIN 
WITH "TAPE"*"DISK","CARD"*"V(JID'% OR "VOIDT". 
RE TURNS Q„QN "sT aPE'Vsq i SK'V AN p " $C AHD" ,„ 



2*90010 
2*90015 
2*9002,0 



RETURNS END OF VOID RANGE ON "*VOlD" CARD. 
RETURNS MINUS END OF VOID RANGE ON "VOIDT" CARD. 



2*90025 
2*90030 
g*90Q35 



ARRAY DOLLARWORpStOt n; 
INTEGER ^i 
LABEL kit ; 



2500000 
2510000 
2520000 



45 
46 
47 
)8 



IF NOt OOL 

FILL OOLU 

"CARP 



LRE THEN PTOGIaFALSE; 

RwoRo&r*r *rT# 



25*0000 
2550000 
25 60 00JL 



"TAPE 
"DISK 

"V O I P 



"*%2 
"^*3 . 



25/0000 
2580000 
2590 , 000 



49 

50 

51 

52 

53 

54 

55 

56 r 

67 



"V0I01 

"LIST 

"NEW 



X« 



%6 



2591000 
£600000 
2610Q00 



"DEBU 
COUNTJ«SCA 

IF SAFE S QA 



GN "iJir 

nit; xscan the "»" 

N THFN GO XIT ElSF 



2611000 
2620000 
2-630000 



IF COUNT GTR THEN 

IF WI»WRO(00LLARW0R0a*3+2XREAL(00ULRE)) LSS THEN 

fiO XTT . - : '. 



2640000 
2650000 
266Q0nn 



• • 



ELSE 
ELSE GO XIT; 

IF W"3 nR H = H. 



T H F N 



BEGIN 



126?0000 
12680000 
12690000 



If SAFESCAN THEN GO XIT ELSE 

If G0UNT LSS THEN DOtLARCARDl«TfcST8UFrERC03& 



GO 



end; 



REAL(W = ^)[1M7J i3; 

xit; 



12/00000 
12MOO0O 

12 720000 



ir Not OOLLRE THEN 
BEGIN 

ODLLRE»«TRyE; 



12721000 

12730000 
1 27aOQQQ ... 



12750000 
12760000 
12780000 



10 

11 

)2 

13 
14 
15 
16 
17 
18 
19 
20 



21 
22 



23 

24 



2G 
26 

" 
28 
29 

30 
31 "^ 
32 
33 
34 
35 
36 
37 ~ 



39 
40 

41 



42 

43 " 



45 
46 
47 
48 
49 
50 
51 
S2 
S3 
S4 
55 
56 



CASE W OF 
BEGIN 

REGlN ENDi, 



12790000 
12800000 



BEGIN PTOQisTRUEJ END; 
BfeGlN TpiPE.TYPE»'12; PT0Gt' 



'Tkue; end; 



end; 



end; 

LSTj=NTaGisDEBUGN:eFAUSE; 
WH IL E N OT SAF ES CAN DC3 



XHo^igasoooo 

12830000 
12 8 60000 



12850000 
12851000 
128 00 XI.QJ3,. 



BEGIN 



LST » » C W S »WR0C DOLL ARWORdS* 8 ) *3 ) 
t^TQ6l«W«6 nR NITQfii 



OR lst; 



DEBUGN:=0E8UGN 

end; 

LSTi^LST OR nEBUGN? 



12870000 
12880000 
12890000. 



OR w=/; 



12891000 
12900000 

i 2 9oiQ aa. 



XITI FIRSTSCAN«»LASTSCAN»«INP; END) 12910000 

SPOP OMIT 12910001 

X **■»♦» # » <r * *»*•»**»***#» * * » * » * tt'it ****** **»*****!»*****»»**♦»»»»*»*♦*•*»»<,*» 1 g 9 1 j Q 



REAL STREAM PROCEDURE TOPlODCF;; 

COMMENT ACTUALLY AN uNFLAG ROUTINE. IT WILL* 
HOWEVER* RETURN THL" TOP I/D DLSC. OF A 



12910200 
12910300 
12910305. 



Flt€ IF TMf FlLE-5 IDENTIFIER IS PASSED; 



BEGIN 



SI »»FI 



DU=L0c topiqd; 
dsjswds; 

QI«=10C Tqpiod; 



12910310 
12910400 
129lQ5iliL-. 



bsisreset; 
end; 

SSET OMlTsOMTTfiOMPlLFR 



12910600 
12910700 
.ia9l0.fiM_-.. 



12910900 
12911000 
12919999 



3[**********************************************»************************j2920000 
PROCEDURE GETNEXTCARD; !(;1501 12930000 

B&eiN . . ^1 5 0U?9301 00 



COMMENT HANDLES THE MERGING QF MASTER i'YMBOLiC AND PATCH XlSOl 12930200 
FILE. WILL LEAVE THE NEXT CARD IMAGE IN iNPUTBUFFER. ALSO 12930300 
DETECTS ♦»!« CARDS AND HANDLES WVUID*' AND wVqIdTw FUNCTIONS. 12930ft00 



FORMAT SEQF(X72* 18)#FMT(Xi05* Al*" 'SAS); 
OWN INTEGER T APESEQ, P ATSEU* 



INTEGER 0*E»T; 

LIST TSCTAPESEQ)#PS(PATSE«J; 

LABEL L00K» START* EOF>EOFUE0F2* EOP ; 



i;l50U2930500 
Xlb0ll2950000 
1 2960000 



DEFINE SEQNR(SEQNRnaQCTAL(T0Pl0D(SEQNRl(9)))#; 

Tjs" ••; 



X 150 1 12970000 
12980000 
12990000 



LOOKt 



12991000 

X150112991100 
13000000 



IF NOT PTQG THEN GQ EQFl ELSE 
IF REAHPTOG) LSS 2 THEN 
BEGIN . , 



13010000 
13020000 
13030000 



41 ' 

42 

43 

44 * 

46 

46 

47 < 

48 

49 

50 I 

51 

52 

53 ( 

54 

55 

S6< 

57 



13 



(15 



|16 
17 
18 



19 
20 



22 
23 
24 
2S 
26 



27 
28 



29 



31 
32 
33 
34 
35 
36 
37' 



40 
41 
42 



14 
45 



46 
47 
48 
«9 
50 



52 
53 



55 



READ(TAP£.[NO]>StQF*TS); 

IF PATSEQ NEC 999999^9 THEN 



end; 

STARTt 



PT0GI»B00LEAN(3)) 



IF TAPESEQ LSS PATSEW THEK 
BEGIN 



EQFI 



IF 
END EL S E 



READtTAPE*XO,lNPuTBUFFER[*ni 

REAOCTAPE£NO])ieOF3/ 

TAPESEQI»SEQNR(rAPE); 



FALSE THEN 

TAPESEQJ1S99999999; 



BEGIN 



T ' * 3 *• 2 3 " i ' 

IF TAPESEQgPATSEQ THEN 



BEGIN 



TlsS^Sl"; 
RFA[KTAPF); 



EQFll 



REA0{TAPECN0 3)[€DF13; 
TAPESEai»S£QNRnAPE); 
IF FA LSE TH EN ■ __ 



KtftKIP nvER THAT CARQ 



end; 



TAPt.SEU5*999899's)9; 



REAn(PATC:H,1,n>INPUTBUFFErtt *]).; 



IF PTQG AND PATSEQ Nta 99999999 THEN 
BEGIN 

RrADfPATCHFNQTHEnir^H 



EOPt 



PATbEQJsSEUNi^CPATCH); 
IF PATSEQ«99999999 THEN 



BEGIN 



READ(PATCH); IREaD 9-S CARD 
READCPATCHCNQI)tEnF2TJ XALt ftWS 



CABn 



IF qb"*" then go start; 



»reauer 
*at end 



RELEASE 
OF PATCH 



E0F2t 



end; 

IF FALSE THEN 
BEGIN 



PATSEQJ«99999999; 
IF PATCHSWiTCHsl THEN 
CLUSECPATCHi TLSF 



13040000 
13041000 
13050000 



13060000 
13070000 
13080QQ0 



13090000 
131OO0O0 
13UQQQQ 



13120000 
13130000 
13U1QQ0 



13140000 
13150000 
1 3^000 00 



13170000 
13180000 
13 19Q Q0Q 



13200000 
13210000 
112^0000 



13230000 
13231000 
132 4 0000 



13250000 
13260000 
13270000 



13280000 
13290000 
13300000- 



13301000 
13310000 

; 3 no50o 



13311000 
13312000 
13313000 



13314000 
13315000 

un sio Q 



13316000 
13320000 
1333QQQ0 



XPaTCH file QN DISK 



IF iNSwITCH^a 
BEGIN 



THEN XIF PATCH & CONTROL 
XFROM CARD READER 



13331000 
13332000 
133 330 Q Q . 



end; 



ENOf 



end; 



donetdgi=true; 
close(maint); 



13334000 
13335000 
i ^336000 



13337000 
13338000 
13339000 



CHaRACT£RMQVE< 1 # INP*8L(CQREA0QRC0 ) ) QR 



BLC3''700000"J); 
IF D-'-S" THEN 
BEGIN 



133^0000 
13342000 
i 3310 000 



IF EtsOOLLARCARD LSS THEN 

WHILE TAPESEQ LSS A8S(£) 
BEGIN _^___ 



13360000 
13370000 
133HOO00 



00 



13390000 
13390100 

n3<>P 2 0o 



T< 



# t 



h 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 

14 
15 



16 
17 
IS 
19 
20 



22 
23 
24 
28 



26 
27 



28 
29 



30 

Si" 

32 

33 

34 

35 

36 

37' 



38 
39 

40 
41 
42 
*3 



45 
46 
47 
48 
49 
50 
51 
52 
S3 
54 



55 
56 



REAOCTAPE); 

TAHESCQ JsStaNHCTAPE); 



GO iook; 

END ELSE 

TF na"*" TMFM 



13390300 
13390^00 
1 •I3905i)-Q. 



BEGIN 



13400000 
1341Q000 

n^nono 



PATSEQ»=99999999i 
GC l-,OP> . ^ . 



END; 
■ I F F 



end; 

fiTR TFSKaOCTALtTQPIQQf IMPUTWUFFPHrOIll THFN 



u^isooo 

13413000 

134H0aX). 



GO start; 

IF NTGG THEN WR H tCNEW 10« INPoTBUFFER C* 3 ) ; 
IF LST then 



13415000 
13420000 
1 34 3 QQ0Q. 



BEGIN 

IF NOT HT06 THEN 
BEGIN 



13440000 
XlbOll3440l00 
X l ' iQ il3 4afl 2 00 



findqutputclswitch'Q); 
printccards(ccs,cccounT'TRue); 
oat i >^f; 



X1S0113440300 

XlS0tl3440400 

JUSiLU^aX150X3. 



HTBGlaTRUE; 
WRITEtOUTFn08i.J)i 



.1il50ll3440600 

X150113440700 

Jil5QUJJ-4.iJ.fi.0a 



WRlTECaUT8UFFtRC*]'FMT*T,DECMAUCA))' 
MOVE(9,INPUTBUFFE«*OUT6UFFERC2 j); 

MnvECl«INPI]TRllFFFR[f ImJUTHIFFERCI?) J/ 



X15Q113440900 
X150113441000 
aii50ll3441iQ 



WRlTE(LFILECDBU3#l5*OUTBUFFE«t*3); 

ENDi 

MnVFf 1»TMPlJTRUFrF<»riO]»TMPUTaiiFrrurQl>t 



*150113441200 
X150U3441300 
i<;i')0il344U00 



a;150ll34al500 
X150113441600 
iil5Ql 13441700 



end; 134'jOOOO 

*POP OMIT 13450001 

PROCEDURE READAGAIN; 13490000 
BEGIN 13500000 
C OMM ENT REFILLS INPUTBUFFER. REINITIALIZES FIRSTScaN 1350000 5 



AND uASToCAN, 



13500010 
13S00015 
1350007'^ 



LABEL XIT#E0F; 13510000 

IF NOT COMPILING THEN 13540000 

IF ACCUMyLATURttCFj^COREAODRCjUNKBUFFER) GEQ 52 THEM3561000 



G0PERR0R(26); 
LASTSCANS=FlRSTSOAN» = IlMP; 
IF DONFSCAN THEN 



REA0(lNFlLEt«Ql»lO,lNPUT8UFFERC*3)CtOF] ELSE 
iEGIN 
$i>ET 0MIT«0MITC0MPILER 



13562000 

135^0000 
13600000 



JPOP OMIT 



IF COMPILING THEN 

GETNEXTCARD 
ELSE 



13610000 
13620000 
X150U3630Q00 



a;i50ii3640ooo 

X150U3650000 
1150113660000 



SfOP OMIT 



REA0(lNFlLE»l0»INPuT8yFF£RC*nCEQF]i 
CRD»»€RO*lf ' ■• ■ : ..■'■■..:■•■;•■■■.•■■.,.■...■". .. . ■'■ 



X150113670O00 
X150U3680000 
ill50ll3690000 



end; 
scan; 



GO xit; 

EOF! IF OONESCAN THEN MOvEC 1#C0MPAREBUFF 1 1 3 3 * 
TESTBUFFER) ELSE - 



13810001 

13340000 
1385000 



13860000 
13870000 



1^ 

2( 

3 

4 

5( 

6 

7 

84 

9 

10 

11 4 
12 

13 

14 t 

15 

16 

17 < 

18 

19 

20 I 

21 

22 

23 1 

24 

26 

26 % 

27 

26 

29 I 

30 

31 

32 I 

33 

34 

35 I 

36 

37 

38 % 

39 

40 

41 I 

42 

43 

44 I 

46 



46 

47 

48 

49 

50 

51 

52 

S3 

54 

55 

56 ' 

57 



m 



# • 



BEGIN 



ECFTaGJ=TRJEi 
Gr PEH Rl]Rj 



138V0000 
13^00000 
13S^lQ0QiL 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

fl6 

|16" 

^7 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 



28 
29 

30 



31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



END, 



end; 

XIT: uINE«ROR««iFAlSE' 



13920000 
13930000 



PROCEDURE scan; 
BEGIN 



COMMENT SCANS ONE SPECIALCHARACTER* INTEGER, OR 
IDENTIFIER FROM SOURCE INPUT, HANDLES 
SCANNlNfi OF COMMENTS IN OUnTFS (iN 



CCNFIDENCE CONTROL CARDS. /^lUL ALSO 
PLACE A SEMlCOLOi^ IN "SPECIAlCHR" IF 
' E ND*' OR "E L SE" ,, IS ScANNbD D UHINq cHMP ILA T I QN -,- 



THIS SIMPLIFIES CHECKING FOR END OF STATEMENTS 
IN THE compiler; 
IN TrGFR Wi 

firstscanislastscan; 

IF CQUNTSsSCANIT GTR 63 OR 
_ (COMPILING AND aPEClALCHRs"ji") Ttifc. N ri EAOAGAIi vi 



13960000 
1396000^ 
13960010 
13960015 

X39600g0 
1396002b 
13960030 

- 1 3 9600 35 



IF NOT COMPILING THEN 
IF SPEClALCHRu""" THEN 

BEGIN 



IF CMENTSaNOT CMENT THEN 



specialchr:=q; 

rtHKE aPEClALCHR 

Scan; 



13960040 
13960045 
-X3A70000 
13960000 
13990000 
HQOOOOO 
14010000 
I40;i0000 
14030000 



NEC """ DO scan; 



end; 

if compiling and 

(WI«WRD(C0MPAREBuFFi:i3]>4)»0 OR WS3) THEN %END OR ELSE 



end; 



SPECIALCHRjs";"; 



14040000 
14050000 
14060000 
14070000 
14030000 
1 4090 0PQ 



14100000 
14110000 



c-iNU> 14110000 

%************************ i,*** ************ i,*1i ** * **i, i i,iii,i,1,i,i,i,'k1t*-k*i,l, * i,i,1,i,i,\i\l 20 OOP 
aanrcniiOtrcritvik'TLatictrCnt <.. 4-i»-<.. 



PROCEDURE fillxlatebuffer; 

BEGIN 

COMMENT INITILIZES INT'BCL TRANSLATION TABLE; 



FILL TRANSLATEBUFFERt*] WITH 
OCT1201020304050607* 
OCT1011131400151617> 



U130000 
Ul'^OOOO 
14U0Q05 



14150000 
14160000 
14170000 



0CT726l6a6364656667* 
OCT707l73f46O757677# 
0CT5241424344454647, 



14ia0000 
14190000 
14200000 



40 
41 
42 



43 



45 
46 

47 



0CT505l5J544O55:3657* 
0CT202l2ii232^252627, 
QCT3Q3 133 343 2 3 536 37; 



14210000 
14220000 
14230QQ0 



end; 14240000 

X****** *************************************** ***#♦# 

%*** ***1l* **************** ***1ti,***1>4>*****it*1, it ***'t,*****itl**** 

PROCEDURF CCSCANRf W.SP.E.D.AW VAl LE W.SP.E; 1Zi950nnn 



•8 
49 
50 
51 



PROCEDURE CCSCANRCW,SP*E,D,A); 
INTEGER W#SP»E#D^ 
ARRAY AC*]; 



VALUE w,sp*e; 



COMMENT 



1495OO00 
14960000 
H970000 



SCAN ROUTINE FOR «*« TYPE CONTROL CAROSt 
W U THE INDEX INTO RESERVED #DRD LIST 



1497000S 
H970010 
14970015 



52 
53 
54 
55 
56 
57 



IF 



"A" THAT IS EXPECTED. "Sp" IS ZERO 

A RESERVED W(SRD IS EXPECTED. IF A 

SPECIAL CHARACTER IS EXPECTED, "SP" CONTAINS 



14970020 
14970025 
149 70030 



THAT CHARACTER. IF THE EXPECTED RESULT IS 
OBTAINED* THE ACTUAL PARAMETER PASSED AS 
♦♦n*' IS SFT TO 3^77777". nTHERWTSr. rr «*f»* 



14970035 
14970040 
14 97 00 4 5 



• • 



>r 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

SO 

31 ~ 

32 

33 

34 

35 

36 



37 

38 

39 

40 

41 

♦2 

«3~ 

44 

45 

46 

47 

«8 



49 
50 



51 
52 
53 
S4 



ss 

56 



IS NOM-ZtRU maIiMT CC ERR "E" HAS BEEN DETECTED. U970050 
IF "E" = * TH(L ACTUAL PARAMETER "D" IS SET US>70055 
TO TH E, I ND F X TMU A OF TH E II F W F O U i nD (*1 TF . ~ 16970060 



ITEM NOT IN "A" 



REfilN 



IF SAFESCAN THEN IF L NEfl THEN 

BEGIN 
C0UNT>=SPEC1ALCHRI=0; 



14970065 
14970070 

u9flnooo 



ERaOR'siA) 
GO PE«RQR> 



U990000 
15000000 
150 10000 



EK'O 



ELSE 
I F SP 



ELSE D«=-l 
NEQ QTHFN 



15020000 
15030000 
I SO^Q QQja. 



IF SPeClALCHRaSP 
GCPERROftCE) 



THEN 01 "EMPTY ELSE 



15050000 

15060000 

.1 50700 011- 



ELSE 



15080000 

15090000 
I'^ioonnn 



IF NTi:=WRD(A*20) NEi W THEN 

IF E NEfl THEN GOPERHURCEJ 
ElSt n'-NTI, , 



15UO000 
15120000 

1513Q00Q 



ELSE Dt*EMpTyj 



15140000 
END; J51S0000 



INTEGER STREAM PROCEDURE F I LE I DEnT IF I ERC F 1 R3TSCAn» LASTSC AN' A ) ; 
BEGIN 

L A B E L l»Ll«L2> L3 *X l Tf 

LOCAL Ti,T2; 

SIt«FlRSTSCAN; DU'LQC TU OStsWDSJ 

s I ? tt t ; ______^ 



L» 



IF bos'* •• 

IF SCs"*" 
BEGIN 



THEN BEGIN 
THEN 



SlJ=bI+li GO L; end ELSE 



15170000 
15180000 

?oooo 

15200000 
15210000 
1522Q0QQ ., 



Dlt«LOC FIlEIOENTIFIER; 
0St»8 LIT «00077777«i 

60 L3; _^^^ 



15230000 
15240000 
15250000 



end; 

Tll=Si; Sl{=LOc Ti; DI »*F iKST SCAN ; dSJ'WQS; Sl!=Tl; 
IF SCsALPHA THEN TALLYtsl ELSE GO XITJ 



15260000 

15270000 

X140415260000 



15290000 
15300000 

15310000 



du«a; ds«»i6 lit «o «; 
0H9Di"i5; 

7 (If SC«ALPHA then DSieCHR ELSE JUMP OUT); 



LI* IF SC*" " THEN BEGIN SlJ*SI + n GO Hi END ElSE 

if scs'V then sis«si + i else go xit; 

X2± IF SC" " then REGIN SlfbUi; GU L2; END ELS^ 



15320000 
15330000 
1 53^00 00 



IF SC«ALPHA THEN TALLYI»2 IlSE 
L3I 60 XITI 
DltttAf nl t»pT»Qt 



15350000 
15360000 
1 5370000 



XIT» 



7{IF SC»ALPHA THEN 0S»*CHR ELSE JUMP OUT); 

TifSi; siuLOc TU di>=lastscan; pst^wps; 



i; 140415360000 

X1404153ei000 

1 539 0000 



FILElOENTlFlCRitTALLYJ 



15400000 
15410000 
15^ 2 000 



15430000 
end; 15440000 

%** * * *** ********t****,* *;*'*:»■<>■»■* :«!::».:i»f *'.»■*. *.l(,M * »..i .»»:,#«■* it.* fi » .*;«■» n .» .t»''<t.f *# t:#* ****** *i 5450&00- 



PROCEDURE LABELEOUATER{F»SW*SWl*WW#A); 
FILE f'f INTEGER SW*SW1*WWJ 
ARRAY AC*]; 



VALUE ski^win; 



15460000 
15470000 
15480000 



BEGIN 



ARRAY AACO»n; 
INTEGER DJ 



15490000 
15500000 
15520000 



DEFINE FlLEIOsFaElD£N7IFIEH(FlKi5TSCAN#LASTSCAN> 
AA)«; 



15S30000 
15540000 



1 

2 
3 

4 
5 
6 

I 

8 
9 
10 

n 

12 

^^ 

14 

'=. 
16 

17 

18 



IF SAFESCAN THEN GDPiHROfi( 3A ); 

tASTSCANI«FlRSTSCAN; 

SWl»Qt 



IF NT2:=FIL£ID=0 THEN 
IF SWl GTR THEN 
BEGIN 



GOPEKR0R(34J tuSE 



15560000 
15570000 
15560000 



end; 



CCSCANR(WW*0>O*U#A)# 
IF D»EM(ITY THEN i»WI»SWl 



15590000 
15600000 
15 6U1000 



ELSE LASTSCANIsFIRSTSCANi 



15610000 
15620000 
15621QQ0 



Fill F WITH IF BUtNTi) ThEN 
IF Bl(NT2) THEN 
M0VE(2^AA^TESTBUFFER)J 



ELbE AAtO]' 
AA[OJ ELSE AAClj; 



15630000 
15631000 
^ 5632000 



end; 

X***************** * * **************************** 

boolean procedure contrqlcard; 



15640000 

********** **************15650000 

XH011566000Q 



BEGIN 

COMMENT SCANS ••*♦« TYPE MAINTENANCE 

OWN ARRAY CONTROLWORDS r ; l^J ; 



CONTROL cards; 



«1«0U5670000 
a;l«0ll5670005 

,40ll56fiQ0ni 



»H0n5< 



1000 



20 



23 
24 
25 
26 
27 
28 
29 



30 

31 

32 

33 

34 

3S 

36 

37' 

38 



ts 



47 
•8 



(9 

SO 



52 



55 
56 



INTEGER D; 
BOOLEAN CMPL; 
LABEL LErLEUXiT; 



Xl40n5690000 
X140115692000 
114011570000 



DEFINE 

CCSCANCCCSCANl*CCSCAN2f CCSCAN3*CCi>CAN4)s 

CCSCANR(CCS ' CANWC CS C AN2> CC S CAN3*CC$CAN4^ 



*l40ll57i0000 
*140115720000 

aiii4uU5?'3onnn 



CONTROLWORDS)## 

LABELEQUATE(LABELEeUATEl»LA8ELEQUATE2*LAe£L£QUATE3# 
LARFLEQUATFfl)» 



LABELEQUATER(LABELEQi^ATEWLABe.LE«UATE2,LABELtaUATE3, 
LABELEQUATE:4^C0NTR0Lbl0R0S)#> 



ail40n5740000 
X140115750000 

at lAQl 1*1760000 



UNL0CK(CCSt*3); 

FILL TAPE WITH ♦♦SYMBOL 



X140115770000 
X140U5780000 
8;140ll'^794nOO 



"^'♦TPECNF "»*****, 3, 



FTll CQDEFTLF WITH t'OTPErNF" . '♦MA INT 



JLL 



FILL NEW WITH '♦NEW ♦'^'♦MaINT 
FILL PTCH WITH "PATCH ".♦♦MAINT 
TA PE0UATE D»-FAL 5E; 



X140115794050 
X140115794100 
%140llH79420n 



"; 



CCCOUNTi»0; 

IF C0NTR0LwORDSCO1»O THEN 

FTI I CQNTRnt WDRnSr*T WITH 



Xl40il5794300 
*14an5794400 
ai40U'i795OQ0. 



"COMPILE ♦♦ 

"TO 

"CDNFIDEN" 



Xl40n5796000 
%140115800000 

ti4Qi 1*^81 onnn 



"FILE 

"SIMPL 

"CARD 



"DISK 
"TAPE 
"N F WTAPE 



"DATA 
"SERIAL 



"EXECUTE 

"SYNTAX 

"LI BRARY 



"CONF 
"LINE 
"STACK 



xHousaaoooo 

5il40ll5a30000 

3iHon584onno 



X140115850000 
X 140 1 15860000 
X14Qll58yQ0QQ 



Xl40ll58a0000 
X140115890000 
jK HQ nSV QQ QOO 



X 140 1159 10000 
IJ40U 59 19000 
11 4 0115 9 2 00 00 



X140115921000 
I14011592U00 
X140115921200 



Xl6 

'ML 



XJ40115921300 
Xt40ll5921400 
XHPU59gt5 0Q 



• • 



>r 



10 

11 

12 



13 
M 
15 



16 
17 



19 

20 



21 



23 
24 
26 



26 
27 
28 
29 

30 



31 
32 
33 



34 
35 
36 

37 ~ 
38 



39 



41 
42 
43* 



46 

47 



49 
SO 



51 
52 



55 

56 



"WAIT 'SXlS 

"DISPLAY ";X19 
CCSCAN(llfO«Q*D )> 



IF D*EMPTY THEN SO RETURNI ELSE 

IF D»12 THEN CONTRCLCARD J»THUE ElSE 

IF NOT (CMPL»»0*0) THEN GOPERiOR(U)J 



CLEAR(CCS#200); 

CLEANMOVECINPUTBUFFEK/CCS); 
LAflELEQUATF(CCJDEFILE>JUNK>-U-l); 



IF £NTt»*C0DEFlLE.MFlD)tC42»eJ 
C0DEFILE.MFIDI«0&NTU12«6»36 3 
ELSE 



" THEN 



IF REALCBLCNTI) EGV BL ( ) )aHEAL (NUT FALSE) ThtN 
IF (NTl«=C00EFlLE.Fl0),ta2:6]=" " THEN 

■ CnDEFILE«FTD» = Q&NTU12 :<»i36J 



ELSE 

BEGIN C0UNT«»7; 

ELSE — 



G0PERR0RC35); END 



begin countj=/; guperrorc 35 ) ; end. 
codefile,areaS:=real(cmpl); 

CnnEFlLEtAREASIZt-i^ir CMPL THLN i024 



El SK Oi 



PMFlOl-TESTBUFFERCOr^ 
IF CMPL THEN 
- BEG IN _______^ 



PFID»»T£ST8UFFE«Cni 



IF REALCBlCPFID) EQV BLC" 
BEGIN 
PTCH.FlDi'PMFin; 



"))=REALCNUT FALSE) THEN 



PTCH.MFlDJaOJ 
END ELSE 
RFfiTN 



ptch.mfidJ'P^^fid; 

end; 

XUDi 



ptch,fio5=pfid; 



while not safescan do 

BEGII^ 

w;«wrd(conTrqlwqrus,i6); 



CONFJsCONF or ws2 or A-loi 
LIBONLYJ'LIBONLV oh W313; 
SAVETOGi=SAVETOG UR W8I/4; 



iCONFIDENCE 

^SYNTAX 

XLIcJRAHY 



OR COnF 



end; 
patchswitch»«realccswitch»o); 

UNTftaFMPTVI 



IF CMPL THEN 
BEGIN 

HEADERCOllaQJ 



M0VEC29,HEA0E»#HEADERtU); 
HEAD£RC5 3«"i; 
HEA0ERC2ni»MAXLEVELS>'i; 



HEA0ERt28]««"QNLlME "; 

HEADERC29]5."TESTAPE"; 

XNCL 



LE» 



ELSE READ(CQDEFlLE#30*HEAOERt*3); 
IF SPECIALCHR NEQ M" THEN 



%140 



X140 
X140 

niUo 



X140 

XHO 

JIM 



aii40 

XI 00 



%H0 

X140 
XHQ 



X140 
XUO 
%U0 



X140 
X140 



XHO 
X140 
Xiao 



X140 



X140 

X140 

JLULO 



«140 
X140 



XI 40 
X140 
Xt40 



X140 
'^140 

X140 



%140 
X140 
aH 4Q 



X140 
X140 
X140 



XI 40 
XI 40 
XI40 



X140 
X140 
X140 



Xt40 

Xt40 
XHO 



DO UNTIL safeScan; 

IF SPECIALCHR*";" THEN GO LEI/ 
ACCUMULATORtaCOREADDRCJUNKBUFFER}; 



IF CCCQUNTal9 |iEN CCCQUNT««0; 

HEAO(lNFILE*lOaNPUT0UFFERt*l); 

CRDIWCRD41I 



X140 
X140 
X14U 



X140 
XUO 
X140 



.5921600 

.5V217C0 

iMJQQQQ 



.5940000 
,5930000 
.5 950100 
.5950150 
,5950300 

,5950450 
.5950500 
■59 5055 



.5950560 
.5950565 
.5950570.. 



.5950575 
5950580 
,5950585 . 



,5950600 
.5950650 
,595 070 0.. 



,5950750 

,5950760 

59 5076- ^ 

,5950770 

.5950773 



.5950777 
,5950779 
5950760 . 



.5950785 
.5950790 
J)950795 



.5950800 
.5950900 
■5951000 



595U00 
5951200 
115951300 
5951400 
5951500 
■^951600 



.5951700 
,5951800 
.5951900 



L59S2000 
15952100 
15952150 



,5952160 
5952170 

,5952200 



.5952300 
.6000000 
,6000050 



,6000100 
,6000500 
,6001000 



,6002000 
.6010000 
,fl 1PSOO 



w 



3 
4 

6 

7 

9 
10 

I " 

12 

13 
I '4 

15 

I n 

IS 

19 
I 20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 "" 

32 

33 

34 

35 

36 

37" 

38 

39 



40 

41 

42 

43" 

44 

45 

46 

47 

48 



49 
50 



» 
S4 

55: 
56 



CLEANMOVE(INPUTBUFrFH*CCS[(CCCOUNT:=cCCOL'NT + lJxioJ); 

FIRST scan»=lastscak:=inp; 



LEU 

CCSCAN("2*0#0#0); 
IF 0*9 OR D«ll THEN GO XIT LlSF 



XUOil60llOOO 
X140116020000 



IF D=3 THEN «"FILE" 
BEGIN 

ccscANC'2fO>o^n); 



%140116031000 
XUOll6U<i0000 
»U0116040100 



IF D^ld THEN 

BEGIN 
CCSCANr3."»w.,r^.n^ . 



XHU116C40200 
Xn0ll6040300 

xHgjt6V404nn 



IF SAFESCAN THEN UO LE ELSt 
IF D»awRD(CCMPAREBUFF*22) ubS 
GQPERRC1R(33) FlSE. 



X140U6040500 
)il40U6040600 

»t40uft04n60o 



17 THEN 



hea0erc4],ccf3i*d*17; 
sopiofalse; 

IF SAFESCAN HR rnUNT GFQ 



XH0116040900 
a!140ll60ai000 



IF D:=TESTBUFFtR[0] LEQ 132 THEN 
HEADERC43.CSFl«=(D+7) DIV Qi 

-GO LE; ___. 



THEN GO LF ELSg 



Xl«OiieO4l200 
!l;l«0il604l250 

»i4QnftQ4i30n- 



ENO ELSE 
IF D NEQ 7 THEN G0PER«0RC33); 
TAPFQUATFnt^TRtJF? 



*140ll60aUOO 
3il401l604l500 

aiuoiiitiuaiono 



CCSCAN(3»"s",33j,jUNK); 

firstscan»=lastscan; 

IF p:=FTLE I D ENTrFlER(F TRS fSC AN/I.A.STSr AN> TESTBliFFFR )sn 



Xl40ll604i700 
!IHOU604ieOO 
^IflUUftQ'inoOO 



TH E N 



*140116050300 
*l4Ull60b0310 

a;i4QnftQ^0320.- 



G0PERR0R(33) ELSE X140i 16050330 

IF D GTR 2 THEN G0PERtOR(34) ELSE X 1401 16U50340 

IF 0»1 T HEN BEGIN HEA D F I?tt2dJi8QJHFAnFRC293lsTrSTRUFFERCQ]fFN.n IftOSQ^^n 
ELSE M0VE(2,TESTBUFFER#H£ADEHt2aJ); 
IF SAFESCAN THEN GOPERRORC 34 J ELSE 
J^ UNIT>°WRD(UNITS[0>Q],16) Lbb THEN GQPLRRnH(33) 



IF 



ELSE GO LE; 
END ELSE 
0=17 THEN 



X140116050360 
X140U60b0400 
!lil4Ull60b05QQ 



BEGIN 

CCSCAN(3*"»"»33#JUNK); 

IF SAFES CAN THEN G0PLRRnRC34) 



X140116050600 
X140116050700 
itI40ll60S0a0Q 



IF COUNT GEO THEN 

GOPERROROO) 

ELSE 



ELSE 



*140116050900 
X140U6051000 
!tl40ll6051l00 



HEADERC2n«'» M IN ( 1022* rt AX (M AXLLVELS -i# 
TESTBUFFER[0]))SREALCCMPL)[1 :^7:U' 

fin i.e; 



X140ll605i200 
!H401160S1300 
ii40116051dQn 



END 
ELSE 
IF 0*16 



X140116U5150G 
a!l40ll605l&00 
ilil40n,6Q51700 



THgN XWAIT 



BEGIN 

CCSCAN(3*"»"*33#JUNK); 

IF SAFES CAN THEN GQPERRPRC 34 ) J 



X140 11605 1800 
XI 4011605 1 900 
ill40ll60520QQ 



IF COUNT GCe 6 THEN GOPERROROQJJ 

0ELAYI»HEADERC22 3l»MrN(511#TESTBUFFERC0])l 
GO .Lc; , • 



*140116052100 
!i;i40il6052200 
atl40ll6052300 



END 
ELSE 
IF 0*19 



1140116052400 
1^401 16052500 
» 140 11 60 52 550 



THEN XDISPLAY 



BEGIN 

CCSCAN(3#'»«"ji33,v)UNK); 

IF SAFESCAN THEN GQPERRQR ( 34)) 



X14011605260G 

X140116052700 

JlMl 16052900 



li 



12 



X140116053000 
X140116053100 
%140116053200 



18 
19 



26 
26 I 
27 
28 
29 ( 



34 
35 I 
36 
37 



40 
41 
42 



47 ' 
48 



52 
53 ( 



SS 
56< 



• • 



>r 



10 

11 

12 
13 



16 

I 17 

IS 

19 
I 20 

21 

22 

23 

24 

2B 

2' 
28 
29 
iO 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

«0 

41 

42 

♦3~ 



45 
46 
47 
48 
49 
SO 



52 
J3 
M 



56 



^ 



IF D»»WR0(C0MPARE8UFFr.23J#3) L^S 
HEA0ERC5] J8REAL(0CTL!=D iMEO 2) + 2x 
REALtBCl . »sDst W 



THEN G0PEKRUR(33); 



GO le; 

END 
ELSr 



IF D NEQ 4 THEN GGFERRQRC 30 ) ; 
CCSCANC3#0,33'D); 

ccsr.ANC-2>o^o*n); 



IF ISS 5 0« 
IF 0»16 THEN 
BEMK 



D 



GTR 8 

XlIN£ 



THEN 



CCSCAN(3*''»"»33#JUNK); 

IF SAFESCAN THEN G0PERR0H(34) t.L5E 

IF U"'WRD,{CQMPAPFaUFF[ mf5? L^S 



60PERR0RC8); 
iSWITCH»«0» 

r.Q le; — 



JM- 0=lJif< U '^ TH F.N 



END ELSE 
G0PERK0RC33) ELSE 
BE GIN CCS CAN C ■l f*' = 'V^ 3f J UINK? ,; 



CASE 0-5 OF 

BEGIN 
BFGTN XCARn 



LABELEQUATECPTCH»PATCHSwlTCh#lMO); 
IF PATCHSWITCHsO THEN 
BE GIN 



ccscanczjiO'O'D); 
patchswitch«»real(0«6jj 

FNDI 



IF CSWITCH=0 THEN PATCHiW I TcH : = 1 ; 

end; 

LABELEQUATE(DSK,JUNK>-2*Q)J XOISK 



BEGIN 

LA8ELEQUATECTaPE»JUNK,-2#0); 

TAPE*TYPE:''IF SAFESCAN QH D» «WRDC C0NTR0lWQRDS«17 ) 



LSS THEN 3 ELSE 

IF Ds6 OR 0*10 THEN 12 LlSe 3 

end; 



end; 
end; 
end; 



BEGIN 

LABELEQUATE{NEW,N£WSWITCH,i,7); XNEWTAPE 

NEW.TYPEJglF NEWSWITCH«1 THEN 3 ELSE 12; 



GO Hi 
XITJ IF CMPL AND 
LOCKCCCSI*]); 



D»l 1 AND PATCHS«ITCH*0 fHEN PATCHSWl TCHI tl ; 



*H0n605J30C 
*U0116053400 
^Hgn69'i)3!SnO. 



XlflOll60535SO 
XH0116Q53600 
^t<(i0ll605-^700 
XHOlldOfiOOOO 
XUO116O70000 

a; Hg ii6 08 QQQii 



X140116090000 
XI<I0116090100 
XHqi1 ftQ9 Q?0iI,- 

XH01160V0300 
XUOil6090aOG 

J i Hg L16Q9Q500- 
X140U6090510 
%140U6090600 
X U 0U6Q9.Q-Za0- - 
XUU1160V0800 
XHOn6099000 
XHOUftlOQ-OOO .. 
XHOU6110000 
XU0n6l20000 
1i 140116130000 - 



XH0U6131000 
X1401161J2000 
X UnU61 3 3000 . 



X140U6134000 
X140U6135000 
XUQll613ftOQO 



Xl40n6136l00 
XU0116137000 
XHqU6H00QQ 



XHQUftlbOOOO 
*i40ll6l50lOG 
X140U615G200 
%140U615G3C0 
X140U6150400 

X 1 40 U615O 5O0 
X140116151000 
X14yU6l60000 
X140116161000 



X140116166000 
X140116UOOOO 
X140116160000 



X 140 1 16 190000 
X140116200000 

Xi40 1162 10000 



X************* *»*****•! 



X140U6220000 
* ******************************************** i6ii30000 



end; 

X**************************„.. „__ _„. __„. ---,---. -.-iufcjwyuy 

' VALUE uNiT^ INTEGER Unit; ""■' — 



PROCEDURE RELEASETHEuNITCUNIt)^ 
BEGIN 
IF UNITsn^UNIT] LSS THEN 



LOCK (TEST APE* RELEASE); 
UNlTS[l,UNIT].Ci:n:so; 

end; 



16250000 
16260000 
16270000 



X************************** 

INTEGER STREAM PROCEDURE 
BEGIN 



16280000 
16300000 
16310Q0Q 



****************************************** ***i6 3 20000 
UNITNAMECU); 16330000 
16340000 



9 

10 



>r 



9 
10 
11 
12 
13 
14 
t|6 

He" 

I 

18 



sij = u; on = LOC unitnaml; iJi: = Di+b; Dij! = 3 chr; icJboooo 

tNU; 16J60000 

DEFINE UNAME(UNAMEnaUNlTNAME(uNITStO*UNAMtn)»; 163a0000 

;***** **********************#********************************iir*****#****ig4y0000 
BnOLEAN PRnCF-nURF GFTHrUKilTCl UN»KFY)f il flO'S KSbOQnQO 

VALUE LUN^KEY; ilA0516310000 

INTEGER LUN; ail40516bi:0000 



VALU 
INTEGER LUN; 

HoniEAN key; 



BEGIN 

CaMMENT 



1 u , wh«t. in 

SiiET OMITsOMlTlNTERPRETER 

FORMAT NOTESTAPEC" 



OBTAINS TAPE UNIT "LUN". IF KEIY IS 
TRUF* ATTAr.HFS UMT THRU LISF UF A TVPf 

5 FILE. OTHEKWlbL, LOOKh FOR FILE WITH 
NAN'S HEADERt2e)]/HtADERCii'^] ANU CHECKS 

TG Sfc.F THAT, IT I ,i? hOLNTKl) ON "ION"; 

RPRETER 



TEST TAPE ON WRCNG UMTC 
A3>" MOT ".A:^*")'^, 



INTEGER U*Ul#i; 
BOOLEAN SECPNUTTME; 



16^30000- 
16^40000 
Xl«0516i>«0005 

i65anoin 

16^^0015 
16^40020 

16540026 
16550000 

165'5QinO 

16560000 

16570000 

tH05165710Qfl- 



19 
20 
21 



22 
23 
24 



2S 
26 
27 



LABEL XIT*PAR#WPAR*AXLi 
If U««UNlTStl'tUN] LSS 
IF KEY THEN 



THEN GO XIT El-SE 



16580000 
iil4U516590G00 
166 00000 



BEGIN 



FILL TFSTAPE NITH 0," "c»i,r, mmE C Lj.n ) L 6 J 30 : 1 3 ] , , * , , 5 ; 
V^RlT£(TESTAPE)L.<P/\Ri>.H'ARJ> 



16610000 
16620000 
166J0Qcn 



END ELSE 
WHILE TRUE 



CO 



16640000 
16641000 
lft65QfiOQ 



28 
29 
30 



31 
32 
33 
34 

35 
36 

37 ~ 

38 

39 

«0 

41 

42 

43 ~ 



45 
46 
47 
48 
49 
50 
51 



PAR; 



FILL TESTAPE i^ I I H HE mUE r< i, 23 j , hE aOLKi. i;9 J > 

REAO(TESTAPE)[PAH:PArtJ; 

IF Ul; = TUPlQD(T£STAPL}.[-i;h} nFQ U.CFFI THFn 



16661000 
i66/'O000 

iftOrtQoon 



BEGIN 



IJ»0; 

WHILE 



UNlTSri^n,CFF3 NFO Ul 00 It»Wl 



XI 405 
X14QS 



16690000 
16700000 
1 67001 0Q 



IF SECONOTlMt THEN 
BEGIN 
UNlT8=iLUNt = lJ 



UTOG»«TfiU£/ 
GO WPARI 



SSnOb 
%1405 
^1405 



ENDI 



AXL5 



CLOSE (TEST APE/ RE LEASE); 
WHlTECCFlLE/NOTEbTAPE/UNAMEC I )^ LN AME( LUN ) ); 



XI 405 
X1405 
X1405 



16700200 
16700300 



16700500 
16700600 



IF Wi«Sl«IPST0P0«DK(T«U£#FAUSe)'»2 THEN 

BEGIN QtTH£UNIT«sTRUE;GO XXTiENOi 
IF WM THEN GO AXL; 



*140516701000 

16702100 

i>;l405167l000Q 



i|#001 671 0200 
16710300 
16710400 



52 

a 

S4 

55 



56 

57 



END 



SECONDTlMEJsTRUt; 

ELSE GO wpar; 



end; 



WPARI 



X140516710500 
16740000 

1675,0000 



TAPEDATEMIF KEY THEN TIMECO) ELSE TESTAPE . DATE/ 
0KBU5lN€SSCcOREADDRCPRNi4LUN[CTFUl023ICTSF3); 



PRN:*PRn,C30»183; 
REWINDCTESTAPt); 
TRA N StgQ J 



16760000 

167^0100 

iH40S1676020Q 



16760300 
16770000 
16760000 



UNlTSEl*LUM.Lun« = i; 



XITf 
$ PO P O MI T 



X140516790000 
16600000 

iftsoonni 



• • 



2 

3 
4 
5 
6 



10 
11 
12 
13 
M 
15 
16 
17 
18 



19 
20 
21 



23 



25 



28 
29 
M 



31 

32 

33 

34 

35 

36 

37* 

38 

39 



40 
41 



42 

♦3" 

44 

45 

46 

♦7 



49 
SO 



52 



55 
S6 



^. 



end; 16800050 

X*****************.*****************************************************j,j^(,8Q0i00 



BOOLEAN, PRnCFDljRf 7nN F P ART ? 



BEGIN 

LABEL XIT*ZONELDOP#Ei 

Z QNEWQR n >«iO; 



1,1501 ifiHonno 



INTEGER ^ONE; 



ZDNEL00P5 

scan; if count geo ihen 

IF ZONE;«TESTBUFFERfOTl 



«150U66G0120 
»150tl6800l30 
115 Q 1169QQ1 40 



BtOll\ ERHOR 
< iJR ZDNIi 



BEGIN ERR0Rt»43;60 EIEND; 

twoset(zone*zoneworo);5can;if specialchr 

GO xit; ^ 



= 4i:;GiJ t;ENo; 

> 2 THt iv , 



xiboiieeooiso 

5i;15Oll6800l60 



E» ZONEPARTtsTRUt; 

XIT: end; 



X150116800180 
THEN GO ZQNEUOOP; 16800190 
11^011 6800 200. 



*lb0ll6800210 
%lb01l68a0220 






BOOLEAN PROCEDURE RANGEFINDER. 
BEGIN 
.C OMMENT HAKiPLEs COMPONENT TYPE DISK AUDRFSS RANGE 



Xl50U68002aO 
16800300 
16800355 



DESCRIPTIUNS ( E . (i • / EU 3 SU 5 DISK 3 ZONE 2) 
INTEGER EU>SU*Su1>DISK/DIjKi,ZQnE; „.,__________. 



DEFINE GoERRORCGOERRORDsBEGIn 
LABEL E#ZeNEL*ZONELOOP#xn^ 



ERRORlsGoERRORi; GO E;EnD#. 



16800360 
1680036b 
168 0400 



DISKTESTtsTftUt; 

scan; %scan eu number 

IF C OUNT GEc; U THEN 



16800500 
16800600 
16800700 



iM\j L T N U M B L H 



16800750 
168U0800 
l6a009QQ 



G0ERR0R{36); 
IF EUJ*TESTBUFFERt03 GTR 
IF DKBT0GI«FU GTR 9 fHEN 



1^ THEN G0ERRUR(37)j 



16801000 

16801100 

itl4Q/1680l11Q 



BEGIN 

UNIT: = ]9j' 
END ELSE 



T1NU:=12; 



*140716auii20 
:fcl407l680ll30 
:tl4U7168Ull4 Q 



BEGIN 



END; 



uNiTi*ia; TiNUi«6; 



IF TeSTaDCRES;3(eU: = i:Ux1000U00) Tnt'J G0ERRCR(37}; 
DKTYPE: = l + CISKlrj(TESTBuF FtK,-C* 

FU).r?pn 3; . 



*1A0716801150 
^140716801160 



16801200 
16801300 



a 



scan; if specialchRs";" then scan; 



IF 



16801500 
16801600 
16801700 



W0RDs29 
BEGIN 

s can; , 



THEN 



ASURAGE Ui\IT 



IF COUNT GEQ THEN tiUERRQR(38); 

if suistestbufferco] tss i or su gtr 5 then 
gqerrqR(39); 



16801800 
16801900 
1680 195Q 



IF TESTAUDRESS(EU+(CSU- 
G0ERR0R(39); 



nx40000xDKTYPE) ) THEN 



16602000 
168Q2100 
16802200 



scan; if specialchr*"" 

BEGIN 
■. SCAN! . • ' .■■^••-..\ 



16802300 
16802400 
16802500 



THEN 



16802600 
16802700 
16802600 



IF COUNT GEQ THEN G0ERRaR(38); 
IF SUl'sTESTIJUFFERCCJ LSS 1 UR SUl 
GUERR0H(39); 



GTR 5 THEN 



16802900 
16803000 
16803100 



IF TESTADDRESSCEU+(CSU1-1 )x40000xDKTYPE)) 

G0ERR0RC39)# 
DiSKtai; DlSKlt*4; 



THEN 



16803200 
16803300 
16903310 



h- 



Scan; 
SU1 » = sii; 



GO iUNti; 



16603400 
16603500 
1^803600 



IF St»EClALCHR»";" THEN SCAN; 



16803700 
16803800 

i6HQ3qnn 



IF 



WaRD=30 
BEGIN 

scam; 



THEN 



XIUSK 



16804000 
16804100 
IfteOApGO 



9 
10 
11 
12 
13 
14 

US 
he" 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

*& 

46 

«7 

18 

49 

50 

51 

52 

53 

54 

56 

56 



IF COUNT Q£Q THEN GDERRORC '•O ) i 
IF UlSKtaTESTBUFFER£03 LSS 1 OH DISK 
GOERRORCitUf 



6TR 4 THEN 



16804300 
16804400 
16B04SQ0 



Scan; 

IF i>PECIALCHK = "-" 



HEN 



16804600 
16804700 
1 68048 00, 



scan; 

IF COUNT GtQ THEN G0EHR0R(40); 
I F DlSKli«TESTBUFFrRC03 LSS 1 OR 



nlSKl fiTR 4 



16804900 
16805000 
168Q5IQQ- 



THEN GUERR(JH(41 )/ 



ELSE 
END 



scan; 

END 



16805200 

16805300 



diskiibDisk; 



-U^ 



14 00 - 



ELSE 



16805500 

16805600 

-16805700 



BEGIN 
DlSK;s 

niSM \ 



l; 



16805800 
16805900 
16606000- 



ENDi 



ELSr 



END 



16806100 
16806200 
168063 



BEGIN 

su«»i; 

WH ILE NOT B O L EANCDISK i O(OuTeMFFt;K^«0 ^ 



16806400 
16806500 
168066Q0 



EU+SUl 
OlSK««i; DI 
SUI taMTNCStJ 



x40000XDKTYpE),C27« 13 ) 
SK1»»0# 



DO SUI»»SU1+1J 



16806700 
168C6750 
16906760 



end; 

ZONELJ 
^ IF SPEC lALC H . Rg";" THi ; N SCAN; 



16806800 
16806900 

166 070 00 



IF W0RD«31 THEN IF ZONEPART THEN GO li 



16807100 

%150116807200 

16 90 6 40 



IF SPECIALCHR5";" THtN SCAN; 



% 



IF NTU«»EU*«C5u- 

GTR ENDAOOR 

- — REfilNA 



l)x400O0'<0KTYPE) + C0ISK'"l)x 10000 

0R NTl LSS BESINAODR OR 
noR B O TH E N FN nAnDRt»*li 



16808500 
16808600 
16608800 



16608900 
16i809O00 
16609100 



BEGINADDRJ=NT1; 
IF NT1I«EU*((SU1 
I GTR ENDA 



-l)x40000xDKTYPE)+(DISKlxi0000 3 
DDR THEN ARE ACLEAKED t «F ALSE; 



16809200 
16809300 
1 680940Q 



SEGS I • ( ENB ADDR i »NT I ) *BEG I NADOR* 1 ; 
IF FALSE fWEN 



J1150116609500 
16609600 
16609700 



E« 

RANGEFINDER«=TRU 

xiTi end; 



e; 



X ***************************** *****«********«******#******** 

BOOLEAN PROCEOyRE CONFSCAN; 
B EGIN , . 



16809800 
16809900 

1 68 10000 



************ 1681 10 

16820000 

^ 1^630000 



• • 



h 

2 
3 
4 
5 



7 

9 
10 

12 
13 

15 
IS 

IS 

19 

21 

22 
\ 23 

24 

2S 
\ 2« 

27 

28 

31 ~ 
I 32 

33 

34 
I 35 

36 

37 ~ 

38 

39 

40 



COMMEM TCGETHEH WITH TEiTSCHEOULER ANo RANGEFlNDtH* 

CONFSCAN HainDLES "CGnFIOLNCE" TYPE MAINTENANCE 
CHMRnt, rAROSI 



DEFINE COMMENTSCAN»BEelN 



WHILE SPECIALCHR 
GO ENDSCANJ 



NEG «i« DO scan; 



END*; 
DEFINE GQERRQR(GQERRUR1)= 

BEGIN FRHOH:=GnERRORi; GO E; ENDiKi 

LABEL ADDRSCAN* 
B, 



Schedule* 

EADDR* 
CALLSCHFUill f^, 






EOF* 
ENDSCAN* 



filltran* 
xit; 

BQQlEAN TnfiiF.RrwB. nP.xi AT£t 



INTEGER SEH*i; 

REAL iod#junk; 

CONFtsTRUE; 



Z0NEW0R0»»7; 
TAPETESTIsDlSKT£ST!» 

nPiofiATFigFAt se; 



Bl 



IF revr!»rev tmen go hv; 

RFVRtaFAI„SEJ _^____ 



scan; 

FILL CODEFILE WITH 
CODEFTI E. AREASlan; 



"OTPECNF'V'MAINT 



C0DEFlLt*AREASUE»50; 
IF SPECIALCHHs"=" THEN 
REfilN 



LABLLEQUATERC CODEFILE/ JINK, -I* -2, TESTBUFFER); 
IF CNTU«C0DEFILE,MFlD).C42J63st " THEN 

CODEFILE »MFIDt»0&NTUli!t6< 3 63 

ELSE ~~~ 

BEGIN C0UNTS=7; G0ERR0RC35); END; 

scan; 



end; 
PMFIor 

PFIQI 



i CODEFILE. MF id; 
CODEFILE. fib; 



IF SPECIALCHR NEQ "(" THEN GOERRORCD; 

scan; 

IF lN0RDa 3 THENT'BEGIN" 



BEGIN DlSKTESTl»f06Le?*TRUE; 
IF W0RD«28 THEN »EU 

- If RANGEFlNflER THEN Gfl f 

ELSE GO CALLSChEDULE 
ELSE 
IF TAPETESTI 



scan; end else 



1683000b 
16830010 
16a '^0015- 



16855000 
168S6000 



16858000 
16859000 
16860 QOO 



16861000 
16862000 

16864000 
16865000 

16867000 

16868000 

- 168690^1 



16670000 

16871000 

--lit 87 2QQa. . 

16873000 

16874000 
i6a7Snnn 

16876000 
16877000 

16877600 
16877700 

1 6 B76000 - 

16879000 
16880000 
-1688100X1 
16882000 
16882500 



16882700 
16883000 
ShMAXmXL 



16885000 
16885100 
16685200 



16885300 
16885400 
16886000 



16887000 
16887100 
16887200 



16888000 
16889000 
16690000 



16891000 
16891100 
16891200 



iCOUNT GTH THEN GO CallSCHEDULE ELSE 



IF NOT DISKTE5T»*C0UNT LSS o THEN G0EKft0R(2); 

IF OKBTOGis SELHsTESTbUFFERCO] GEO lOOOOOOO THEN 

BEGIN 



S(140716891300 
16891400 
16692000 



XI 40 7 
11407 



16893000 
16893100 
16893200 



ir~^i 



li 



27 
28 



30 



33 



36 ' 



47 



11 



49 



55 



y 



h 



10 

11 

12 
13 



UMTJci*; 
END t"LSE 

BEQIN 



riNU:=l2; 



UMTl«l8i 

end; 

IF SELl 



TINU>»6; 
GTR ENDADDR OH SELl LSS BEGIKADDR QR 



X1<«07168&3300 
•IUC716893400 

xHon6693'7nn 



BEGlNAODRsO THEN 
BEGIN 
IF TEST ADDRESS (eU I NA|}D R<>Sfc ;ui} 



18140716893600 
Xlft0716893700 



ENOAOORf-U 
END ELSE BEGINADD«l*SEti; 
rr Tnr^ f thfn rQ AnnRSr. ami 



THFN 



XU0716a95000 
16896000 
G0E;RH0RC25)i 16 8970Q C - 



SCAN> 

if specialchr 
scan; 



16898000 
16899000 
liS9n0000 



N£Q "»" THEN GUERRUH(3); 



IF COUNT GEQ THEN G0ERR0R(2) 
ELSE SELl«aTESTBUFFERtOJ + BEGlNAODH«^l; 
EAnpRi ^_^ ■ 



16901000 
16902000 
1 6 ^0 3 000 - 



IF SELl GTR ENDADDH LK SELl LSS 
BEGINAODR OR ENDA0DR=-1 THEN 
BEGIN 



16904000 
16905000 
16906000 



areaclearedibfalse; 

IF TEST ADDRESS (END ADDR I aSELl 3 
ENDADQB LS5 REfilNAOCR QR - 



16907000 
16908000 
169090 Q 



Or 



jm. 



ENDADOR DIV 1000000 NeQ BEGINaUOR DIV 1000000 
THEN G0ERR0R(25); 
ELSE ENQAOnHt>St:LlJ 



16910000 
16911000 

169 1 2 4X00- 



SEGSI*ENDADDR' 

GO schedule; 

AnnpsrAMi 



'BEGlNAOUR*i; 



16913000 
X150116914000 
16916000- 



TOGLE«=FALSe; 

scan; 

IF SPFriALrHR 



X150U6916100 
16917000 

i6Viaono 



THFN SCAN, 



if word neq 4 thgn goerrorc 4 jix^'end" 
scan; 

IF COUNT GFQ THEN GQFRRORf?U 



16919000 
169;£0000 
16 VP100J - 



SELH=TESTBUFFEHCO]; 

GO eaddr; 

SCHEDULEt 



16922000 

16923000 
16924000 



scan; 

IF SPECIALCHR' 
CALLScHEDULFt 



16925000 
16926000 
16^2 ?^Q 00 



'";« THEN SCAN; 



IF TAPETtST THEN 
BEGIN 
READ(CUDEFILE#30^HEADERC*3); 



16928000 
16929000 
1693QQQ0 



NUM8ERQfTESTSl»HEA6ERl8 3; 
Et-SE NUMBERQFTSSTS*»NUMQERQrDlSXT£STSJ 



16930100 
16930200 
16930300 



SELl»*0;TESTMASK»sROMASKtsNOMASK J=FALSt; 
IF WJ«W0RD»5 THEN XSCHEDULE 
IF TESTSCHEDULEHCSELl) THEN GO F 



16930400 
16930500 
16930600 



EI#SE 



ELSE IF SeLI*0 THEN G0£RR0R(15) 

ELSE T£STARRAYCStLU«*REAL(NOT FALSE) 



%150ll6930700 
16932000 
1 6<>33Q0 



IF W0R0=27 THEN XTESTAPE 
BEGIN 

IF NOT TAPETEST THEN GaERRQRCSiJ 



16933050 

169 33100 
16933200 



TE5TARRAYC03»»i; 
SCAN; 

IF specialchR NEO 



16934000 
16935000 
16936000 



")** THEN G0ERR0RC16?; 



16937000 
16918000 



1^ 



40 



45 



4« 



52 



i 



• • 



ff 

2 
3 

4 
S 



9 
10 



12 
13 
14 
15 
16 
17 
18 



19 

20 



22 
23 
24 
2S 
26 
27 
28 
29 
30 
31 ~ 



32 



34 

35 



END ELSE 
IF W0RD«3l 
REGIN 



THEN 



XZCNt 



*lbOU6V40000 
»150U6'^^0010 
31l5QU6V^0QgQ. 



IF NOT OISKTEST THEN GQER«0HC5n 31150116940030 

IF 20NEf»ART THEN GO E; X1501 16940040 

SCANJTF SPECIALCHR»"I" THFN SCAMJGQ CALLSCHmtlLFJ ih9 UQC)%a 



END ELSE GO Ei 
IF OISKTEST THEN 
B EGI N ^ „ 



X150U6940060 
i;H07l6940lOO 
itH0y-L6.gJt02Q-Q- 



SCANl 

IF NTl!«WRDcUNnSt0#16]#2) CJ>S THEN GO Di; 

IF NTt«Q AND DKBTQ6 THg(v fiQEHRORCAfi); 



IH0716940300 
%140716940400 
ili l4Q7 l 694Q 500 



ENp 



UMTJsi8 + NTi; 
TINU««6 + 6xNTU 
ELSF 



X140716940600 

X140716940700 

JLiAaZiAMOaaO 



IF TaPETEST THEN 
BEGIN 
SCAN! 



IF UNlTtswRD(UNITS[C'0]*16) LSS 
IF HEAOERCU GTR THEN 

qOEpRQH(29) 



THEN 



16941000 
16942000 

-lASAiOOfl 
16945000 
16946000 

,-J.Ji9jL6xaQ. 



ELSE 



BEGIN 
TAPETFSTtgFAl, SEi 



16946200 

16946300 

■ I694ft40-a. 



GO Dli 

end; 



end; 



D» 



Oil 



16946500 
16946600 
1 6 947000 - 



scan; 



16948000 
16949000 
16950000. 



IF REV THEN GO HM i 

IF SPECIALCHRs"#« then GO ENDSCAN ELSE 

IF SPEClALCHRa"*" THEN C0I>'MENTSC AN ElSE 



16951000 
16952000 
1 6953000 



RV» 



IF SPEClALCHRa";" THEN GO D ELSE 

IF S£lH»WORD GEQ 24 AND SELl LEQ 26 THEN 



16954000 
16955000 
16956000 



BEGIN 



IF XLATE THEN G0ERRDH(6) 
CAStCSELl-2 4) Qf- 



ELSE xlatesstrue; 



16957000 
16958000 
69590 00. 



-i 



37 
38 



39 

4C 
41 
42 



BEGIN 



BEGIN octli«true; bcli»false> 

RCLIaUCTLMTRUEJlBCL 



end; 



16960000 
16961000 
16962000 



end; 
GO d; 



BCL«=t)CTL«=FALSE;*JNT 



16963000 
16964000 
16965000 



45 
46 
47 
48 



END ELSE 
If W0R0»6 
BEGIN 



THENX^OUTPUT" 



16966000 
16967000 
16968000 



IF OP THEN G0EHHUR(73 ElSE 0^'««TRUE; 

scan; 

IF W0RU = 17 THEN ^C AN; it"RESULT " 



IF W0RD««7 THEr SCAN;X"0N'' ^~ 

IP SELl««WORU LS5 18 OR SELl GTR 22 THEN 
%'l«»"LP'y*.'' • •./.■:. -■..:;...;.••. : •• :.. ■.-. ■ '■ . 



16969000 
16970000 
16971000 



so 

51 



16972000 
16973000 
16974000 



52 



S4 
S5 

S6 
S7 



Xl9»''SPQ'' 

X2Q»"PB0" 
X21»"PBT** 



16975000 
16976000 
16977000 



X2a»"TWK** 

IF SELl •16 THEN 

G0ERR0R(8) ELSE 



GO P ELSE 



1697BO00 
16979000 
16980000 



57) 



>r 



16 
17 
18 
19 
20 



24 
2S 



26 
27 



28 

29 

» 

31 " 

}2 

33 



34 

35 



36 

37" 



38 



41 
42 



46 

47 



49 
SO 



52 



56 

38 



FINDQUTI»UTCS£H-18*0); IbVaiOOQ 

IF aUTSwlTCH=l AND CSWiTCM NEQ THEN GGPERROR(a); 16986200 

■ scan; aE LUfu n R i Ji i6^ 67oo o 



PJ 



IF SELlal6 THtN 

BFGIN PAGFIaFALSEl GO Pi FND ELSE 



16988000 
16989000 



BEGIN PAGEJsTRUE; GO Oi; ENO^ 

end; 

if rev then 



BEGIN 



16991000 
16992000 



REVJ*FAtSEi 

TF CQUNTgQ THFN 



XL 



IF SOPSSSPECIALCHR*"*" 

EUSL scan; 

&EL1>=WURD = 1 THEN GQ B 



16994000 
16^95000 

tft996nnn 



THEN GQ READIT 



i^ uSE 



IF SOPIaSPEClAUCHR*"*" 

end; 

ERR0R<«26*REALtRFVR); 



16996100 
16996200 
1 6997Q 0Q. 



THEN GO READIT; 



€i 



1699/100 

16998000 
iA999nnn 



8EGINADDR:«ENDADDRJ*" 
CONFSCANtaTRUE; 



i; 



GO XI t; 
endscaNi 
sQpt»snp 



1/000000 

17001000 
17QQP000 



nR np OR xLAtr; 



IF NOT OP THEN FINOOUT PUT ( OUT SH ITCH» ) ; 

IF XLATE THEN XLATE««FaLSE ELSE 

IF TAPfTEST OR NOT OISKTeST THFN 



17003000 

170040C0 

-17004500 



BEGIN 



17005000 

17006000 

■ 17Q061QQ 



QGltlwTRUE; 
SCLtsFALSE; 



END ELSE BCLIsOCTLisTRUE; 

savingjsfalse; 

IF INSy^IT CH »2 THE N 



17006200 
17006300 
17006400 



BEGIN 



17006500 
17006600 
17Q07QQQ 



donescani' 
scan; 



iTRUE; 



IF WaR0=14 THEN 
BEGIN CL0SE(MAIM )) 

DONESCANtsFALSE; 



17008000 
17009000 
17010000 



donetogi*true; end. 



end; 

if tapftest 

BEGIN 



17011000 
17012000 
17013000 



THEN 



17014000 
17016000 
17017000 



IF GETHEUnITCUNIT^TeSTARRAYCC], [27163=0) THEN 17018000 
GO TO IF OQNETOG THEN ALLDDNE ELSE RETURN; 170i9000 
GC FILUTRAN; ^ 17020QQQ 



END ELS^^^ NOT OISKTEST THEN GO FttUTRAN; 17021000 

IF BOOLE ANCNT1I»DISKI0( TEST BUFFER' -O^BEQ I NADDR)).t 30 «U 1702UOO 
THFN G0FRRFIft(4tai .' \ . ■ : .^y.'^^- iLiuayi j a9ipr\n 



DKTyPE««l*NTl. [28813; 
IF NOT AREACLEaREU THEN 
FOR I0n»»2 STEP 1 UNTIL 



H DO 



FILLTRANI 



IF TWOT(IQD#TESTmASK OR RUMASK) THEN 

BEGIN cleararea; GO filltRan; end; 



X140717022000 

17023000 

I1 50U70 240QQ 



IF BCL AND TRAnSLATEBUFFERCOJ-0 THEN 

fillxlatebuffer; 

SSET QMITgNOT DEBUG 



X1501 17025000 

17026000 

.^^ 17Q27nQn 



WRITE (GUTF1*<''TESTASRAYC*3s*S//>); 

NTii«REAt(8CL); bcl»«kalse; 

Hl^tmRrtLtnftlL^J af^TLlaTfiUFi 



1/028000 
17029000 
17039100 



17039200 
17039300 
17039400 



• • 



16 
17 
18 
19 
20 



22 
23 



2S 
26 



27 
28 



29 



32 
33 

34 
35 
36 
37" 



36 



40 
41 
«2 



«3 



t5 



46 
47 



49 
SO 



52 



54 



55 

58 ■ 



M0VEANDWRllE(rRUL'64>F ALSE/OUTFI^COHtADDRCTESTARRAY)); 170 3^500 
8CL!»BrOLEANCNTl ); OCTl J =BaULE AN ( M i! ) ; lyOaVfeOO 

WHlTEfCUTFirriHI, J)/ ^KnFCQini-'ItUBL]),? . 17O:j9700 



Sf'OP OMIT 17039800 

XITI END OF CONFSCftN; 1/040000 



PROCEDURE SPOUTCCS; 
BEGIN 



COMMENT PRINTS CONFIDENCE MAINT CCS FHQM JUNKBUFFER; 
INTEQeR STREAM PROCEDURE THUNCATE(BUFFER )J VALUE BUFFER J 



17040200 

170<»0300 

-II-Q404QQ 



BEGIN 
LOCAL 
% 



170^0500 
17040600 
1704070 



JUNK^BLAiMK; LABtL L' 



SI r»LOC eUFFERJ 
BEtJiN TALLtlel; 
SII*BUFF£Rj 



SKIP SB; IF SB THEN 

BLANK I »T ALLY; T ALtY I •OJENO; 



17040800 
170^0900 
17041000, 



IF SCsALPHA THEN 
L» BEGIN 

sii»s I - 1 ; 



17041100 
17041200 
17041300 



IF SC=ALPHA THEN 



BEGIN TALLY'sTALLYflJ W U ENO; 
JUNKlisSlI Sir»LOC JijNKJ D|««*<UNK; Dll»Ol + li 
TRUNCATEI»DIJ JUNKl.j»TALLYJ 



17041400 
17041500 
170i»l600 



BLANK(JUNK(DS;sLlT 
ENO 
FLSF TRLJNCATFJaSi; 



17041700 
17041800 
17041900 



" ")); 



end; 

INTEfiER 



17042000 

17042100 

-U:Q42200 



I#lQa»SELlJ 



oatime; 

COUNT ts(C ACCUMULATOR. L 33 I 15]- 

(lODigCOREAOURCJUNKRUFFEN [0 1)^4 



FOR 



BEGIN 



REALCACCUMULATQR.t27«63 GTR D) 
DIV II»WSUFF); 
SELH»0 STEP 1 UNTIL COUNT DO 



17042300 

17042310 

17042400. 

17042500 

17042600 

1 704300 iL 



17044000 
17045000 
17046Q00 



FuNNYMUvE(I+l>lUD,OuTBuf FER)' 
lPD»»TRUNCATE(lQmaIOD-»-l ); 



end; 



JUNK|*TRUNCATEC-C0READOR(aUT8uFFERCI3)); 
WRlTE(OUTFl*W8UFF*OMTBUFF£Rt*3j; 



17U47000 

170^(8000 
17049Q0Q 



END 



KRITECCUTFICDBLJ)^ 
If^RlTE(CUTFl); 
OF SPOUTCCS; 



17050000 
17051000 
17052Q0Q 



17053000 
17054000 
17055000 



tSET OMn«OMITeOMPlLER AND OMlTINTERPRETER 19209999 

. PROCEDURE FlLLMODlFlERS(CQMPARfcBUFF); 19220000 



COMMENT THIS PROCEDURE FILLS THE MODIFIER TABLE 

FOR THE COMPILER OR INTERPRETER (IT IS 
USFD DURING I NTEHPRETAT I HN 70 GENERATE 



PATTERNS FROM 
TO ADO A WORD 
AT THE END OF 



A PATTERN DESCRIPTION), 
TO THIS TABLE* PLACE IT 
THE FILL STATEMENT ANO 



19220005 
19220010 
19220015 



ARRAY 



INCREASE THE VALUt 
22610000) BY ONE; 
COMPAREBUFF[*]J 



19220020 
19820029 
1 9220 0IQ 



OF NROFMOD (SeQNR, 



BEGIN 

UNL0CKCC0MPAREBUFFC*3); 
FILL COMPAREBUFFUl WITH 



19220035 
19220040 
I923OOQ Q 



19231000 
19232000 
19240000 



I^ 



57; 



• • 



>r 



2 
3 
4 

6 
6 
I 
8 
9 
10 
11 
12 
13 



Il6 

P 
18 

19 

20 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

to 

41 
t2 
«3 



ts 

46 
47 
•8 



49 
90 



52 



56 



"AB 

"Buffer 
"P att l h n 



"DOUBLC 
"SPAQE 









"TIMES 

"WITH 

" USING 



"BE6IK 

"ON 
"ERROR 



.*7 



" fitfl 



%9 



•♦,X10 



>»11 



"GO 

"ELSE 

"NO 



"STOP 
"END 
."R IPPL F 



VX13 



.115 



"BKWD 

"ALPHA 

"BINARY 






"^X16 



"INT0 
"FROM 

"OCT 



"#X18 
"*X19 



M 



*X21 
»X22 

>X2 3 



"PARITY "/X24 
"TAP£KARK"*X25 



"G M 



M 



» g6 



"TAP£LABE">X27 
"NOT "#«28 
♦^TALLY "#129 



"TOGGLE 

"TEST 

"TR UE 



•» 



.igo 



"**31 



"FALSE 
"80T 
"EnT 



"^»32 



M 



"THRU 
"THEN 

"Mnn3 



♦*Xd3 

'*X34 
>it 35 



"*it36 
"*»37 

"»ai3a 



"FOR 

"To 

"LSS 



",X39 
",X«0 

"«a;at 



"GTR 
"LEQ 
"G EQ 



"NeQ 
"EOF 



%X42 
^X43 



»X45 
"*X46 



"MEMIiARIT"»X4y 



"SIZ£RR0H",X48 
"OATAERR "*X«9 
"BLANKTAP"*X50 



"NOISE 



.X51 



•'WRDC0UNT"*Xf2 



'im. 



'.X5.3 



"RESULT "*XS4 
"«•♦■ ";XENO 
L0CK(C0MPARFBUFF[*3); 



19250000 
19260000 
19270000 
19260000 

19290000 
19300000 

1931PO00 
19320000 
19330QQO 
19340000 
19350000 
19360000 



19370000 
19380000 

-1 9 39 000.,-. 
19400000 
19410000 

19 4 20000 

19430000 
19440000 

1945Q00XL 

19460000 
19470000 

1 946 0000 

19490000 
19b00000 

-l95lQ00i) 

19520000 
19530000 
19540000 
19550000 
19560000 

■19 57Q QQ0 

19580000 
19590000 
10600000 

19610000 



19620000 

19621000 

X140619621100 
19621200 

19621300 

19621400 
19621500 
19 6216Q0 



19621700 
19621800 

19621900 

19622000 
19622100 
^140319622200 
XI 403 19622 300 
XI 406 196 2 2400 
X 14061 9622500 



X140619622600 
X140319627000 
19626Q0C 



END; 19628100 

I*************************************** ******************************** 19629000 

X*****lt********»*»*ilf#***»»»»***»»»*#*»*»*»*jt*»ilr»**»»-»*^>»*»»*»)|,)|(»»j|,»»»j>r»»19630000 



39 
40 



65 
56 ' 



• • 



h 



8 
9 
10 



13 



16 
17 
18 
19 
20 



22 
23 
24 
2S 
26 
27 
28 
29 
30 
31 
32 
33 



34 

3S 

36 

37" 

38 

39 

40 

41 

42 

43 

44 

45 

46 

•7 

•8 



49 
SO 



52 
53 
S4 



S5 
56 



BOOLEAN PROCEDURE PATTERNGEnEKAT JHC CMKS* P ATbUFF ) / 
VALUE CHRS*PATBuEF; iNTEGbR CHHS* PAl BuFF; 

COMMKNT PATT&RNGFNFHATQR HANmrf;? SYNTA X CH FCK IN G 



OF PATTERN OESCRU^tlQNS DURING COMPILATION 

OF SIMPL PROGRAMS. IF "DEeUG" IS SET* 

THE ROUTINE IS AL50 USED TO ACTUALLY GENERATE 



19640000 

19650000 

-ia6:}Q0Q5 



THE PATTERNS. PATTERN DESCRIPTIONS ARE 
SYNTAX CHECKED ANU STORED INTO PDESCt*J DURING 
COMPILATION. WHEN PpESC BECOMES FULL> IT 



19650010 
I96S1OOI5 
19650020 



IS WRITTEN INTO THE CODE FILE AND THE 
NEXT PATICRN DESCRIPTION IS PLACED 
INTO THE ARRAY BEGINNING A T POEScCQ]. 



19650025 
19650030 

.i5650iil5.. 



AS ALREADY 
KEEP TRACK 



MENTIUNED* "PP" IS USED 
OF THL STATob OF PDeSc. 



19650040 
19650045 
19650050 



TO 



THE Parameter "chrs" contains the number 

OF CHARACTERS to 8E IN THE PATTERN CFIELD 
WrnTH). IF nHR8*0* no FTFtn WTntH WAS 



19650055 

19650060 

4965006 5 



SPECIFIED, 

THE PARAMETER "PAlHUFF" IS i^ORmALLY NOT 



19650070 
19650075 
1 96 50 0fi n 



USED DURING COMPILATION. IF "DEeUG" 
SET* HOWEVER* "PATSUFF" CONTAINS THE 
CDRC AnOHESS OF TMF fiUFFFH INTO ^HlfM 



19650085 
19650090 
19<'5Q095 



IS 



THE PATTERN IS TU BE PLACEDi 



19650100 
19650105 
19650110- 



19650115 
19650120 
■4 36501 25 



BEGIN 19660000 

% * * * It* ***** ****** 1, * 1, It t, * * * t Hi, * 1, * *** ti ****** * *****k*******************it***<itig(i6QlQ0 
InTEGFR STREAM PRnrEnURF STaTK|fiSrAN(F'TWSTSrAN.| ASTSrAKi, l066Q? 0n 



PATTERN* MAX *ETDG*OCTL*SV); 
VALUE MAX*0CTL*SV; 
-^ COM MEN T STRINGSCAN Is USED 



TO SCAN qWMD STHlNfiS' 



IT MANIPULATES FIR3T5CAN AND LASTSCAN IN THE 
SAME MANNER AS DOES SCAnAwQRD. PATTERN POINTS 
To THE CORE LnCATlQN WHERE THE STRING IS TO 



19660300 
19660400 
19660405- 



BE BUILTf IT IS U^'DAtEU TO PQlNT TO THE NEXT 
AVAILABLE CHARACTER LQCAflON BEFORE THE ROUTINE 
Is EXITED. MAX CONTAIN^ THE LARGEST NUMBER OF 



19660410 
19660415 
19660420 



CHARACTERS THAT ARE TO BE SCANNED (IF A QUOTE 
MARK 18 NOT FOUND). ETOa IS PASSED BY NAME 
AND THE CORRESPdNDlNG ACTUAL PARAMETER IS 



19660425 
19660430 
19660435 



Set ACCORDING 
A3 follows: 



to THE FINDINGS UF THE ROUTINE 



19660440 
19660445 
19660450 



1) ETOS«0 A iuOTE MARK WAS ENCOUNTERED 

IN MAX OR LSS CHARACTERS. 

2) ET0G*1 A QUOTE MARK WAS NOT ENCOUNTERED 



19660455 
19660460 
19660465 



19660470 
19660472 
19660474 



IN MAX CHARACTERS 
3) ET0G»2 THE FIRST CHARACTER IN THE STRING 

WAS A QUJTE* THL SECOND WAS N0T_j_ 



4) ET0G«3 AN OCTAL STRING WAS EXPECTED AND 
A NON-OCTAL CHARACTER WAS FOUND 
IN THE STRINGt ■■ ,/; 



19660476 
19660478 
19660480 



19660482 
19660484 
19660486 



OCTL IS 1 
INDICATES 



IF AN OCTAL 
THE MAXIMUM 



STRING IS EXPECTED. MAX 
NUMBER OF 6-BIT CHARACTERS 



TO BE PLACED IN THE OUTPUT STRING. 5»V IS TRUE WHEN 
COMPILING. THIS IS NECESSARY TO DETERMINE IF 
OCTAL CHARACTERS SHOULD &l COMPRESSED IN THE OUTPUT 



19660488 
19660490 
19660492 



19660494 
19660496 
19660498 



7< 



56 < 



>T 



10 

11 

12 
13 
14 

115 



16 
17 
IS 



19 
20 



21 
22 
23 
24 
25 
26 



27 
26 



29 

30 



31 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 



46 
46 
47 
48 



49 
50 
51 
52 
53 
54 



55 
56 



string; 



B FflI N 



LOCAL TSI*TDn 

LABEL XlT#BADOCT#CHeCK#SvQCT; 

SliaFIRSTSCAN; DIlgLOC TSi; DSi»WDS; 



su=pattern; Dij=toc tdi; 

SllsTSi; DpaTDi; 
IF SC-""" THFN 



USj=w05/ 



BEGIN SHpSI + i; TALLYIsi; if SCs""" THEN 
BEGIN DS|«CHR; SV(0SI«LIT ""♦•>; GU XITi 

- _a£iLiii ■ 



END ELSE 



TQHsDi; 
GO xit; 

end; 



di«=etog; DSJ=e lit "ooooooc2"i pijstdi; 



end; 
0ctl(maxc2(if 

IF S C LSS wQH 



SC***"" 
THFN 



THEN JUMP OUT 3 TO CHECK ELSE 



BADocn BEGIN 
TDHoBl; 

DH'TDi; 



dUsetgg; osise lit 

JUMP nijT 3 TO XIT/ 



"00000003"; 



END ELSE 
IF SC GTR "7" 

BEGIN 



THEN GU 8AD0CT ELSE 



svcdsj'chr; jump out to svoctj; 

SKIP 3 SB; 
3CIF SR THEN DS: = SET FL.SE D S;-H F SrT * SK IP i> R ); 

svoctj END); tallyistally+d; 

JUMP OUT TO CHECK); 
MAX(TF SCg"*'** THEN .lUMP nUT ELSF 



BEGIN DS««CHR; 
CHECKJ 
IF SC^""** THEN 



TALLY«3TALLY+1> END)> 



BEGIN 

sv(osi»chr; 
sn^si^i; 



JUMP OUT TO XIT); 



END 
ELSE 

BEGIN 



XITI 



TDll«PI; DlisETOGi 

end; 

STRINGSCANta»TALLY; TSU»S|; 



DSl«8 LIT "oooooooi"; Di;*TOi; 
sn»Loc Tsi; 



TDii=Di; diislastscan; dsi=wds; 

Slt=LOC TDi; DlJxpATTERN; DSl=WOb; 

end; 



19660500 

19660502 

-LaMfliOil- 



19660600 

19660700 
1966QaQQ 



19660900 
19661000 
19661100 



19661200 
19661300 
196ftU00 



19661500 

19661600 

49661700 



19661600 
19661900 
1 9662000 



19662100 
19662200 
19662 30i;. 



19662400 
19662500 
lVft 6 2600 



19662700 
19662800 
19662900 



19663000 
19663100 
1966i<aOQ 



19663300 
19663400 
19663500 



19663600 
19663700 
10663aQn 



19663900 
19664000 
1 96641Q 



19664200 

19664300 
19664400 



19664500 
19664600 
1966470Q 



SSET OMiTsOMiT OR NOT DEBUG 19664740 

%*************** i>**itl> **************** ii*****ik*i,t***i>****1,**i^ 

STREAM PROCEDURE PRQPOGATE(P*JUNKi>HI* COUNTER I MOOCQUnT); 19664900 



VALUE ri*count*rimodcount; 

comment propogate expands a string of 
Into a string of (hi-»i)xcoumt 



COUNT CHARACTERS 
♦ RIMQQCOUNT 



CHARACTERS, P IS THE ADDRESS OF THE CHARACTER 
FOLLOWING THE STRING* JUNK IS TEMPORARY STORAGE 
OF AT LEAST CQUnT CHARACT£RS» P IS UPQaTED TQ 



19665000 
19665005 

1 9665007 



POINT TO 

string; 



THE CHARACTER FOLLOWING THE EXPANDED 



1966S009 
19 6650 U 
1966S013 



BEGIN 



LOCAL T*TRl»TRMC*Tc; 

sit.toc Ri; sn»si+6; dUbloc tri; Dn»Di+7; ds»schr; 

sit»LOC rimoocount; sii8Si46; oit'LOC TRMCJ Dii»Di»7; ds>«chr; 



19665015 
19665017 
19665100 



19665200 
19665300 
196 65 400: 






10 

1 11 

12 
13 
14 
15 
)6 
17 
18 
19 
20 
21 
22 
23 
24 
2G 
26 

" 
28 

29 
30 



31 
32 
33 

34 

35 

36 

37" 

38 

39 



42 

43" 

44 

45 

46 

•7 

•8 

*9 
50 



51 
52 
53 
54 



55 



siisLoc count; si:=si+6; oir 
sij=p; DUsLOC t; dsj=wds; 
oh-junk; ,sn°T? 



■ LLC ic; cijrtu + 7i us»=chr; 



TC(SI»»SI-32i SIlaSI-32); S U^SI-COUNT; 

Tc(DS»«32 chr; dsi*32 chR); D5s«ceuNT chr; 

STi»LQ(^ p; nttcT; <;Ti»Jll^lKl 



19665500 
19665600 
196^5700 



TRI(2(32(TcC0Sls32 CHR; DSJs32 ChK); DS:sCOUnT ChR; 
TC(SIlsSI-32; SlJsSI-32); SU*SI-COUNT))); 
RI(TCCDS»«32 chr; nS»=i2 chRW ost^r.nUNT c.Hti; 



19665800 

19665900 

.496ftftOOO 



Tc ( s 1 1 «si-32; s I i«si- 32 > ; SI jsssr-couNT ) ; 

TRMCCDSSa32 CHR; 0S!«32 CHR); 
DS»*RlMQDCnUNT FiHKl 



19666100 

19666200 

■19666 30Q„ 



Ti=Di; 

end; 



DIi*P; SIisLOC t; ds:swds; 



19666400 
19666500 
19666600 



19666700 
19666800 






STREAM PROCEDURE RIPPtERf P^RI /INCR); VALUE Rl,iNCR; 
BEGIN 
COMMENT GFMERATES A RTPPlF PATT^Hm WH-1 rHABACTFRS ( HMfi 



STARTING AT THE CHARACTER PRECEDING THfc. QNE 
ADDRESSED BY P. THAT CHARACTER IS UStD AS A 
BASE CHARACrER. INCR lb THE INCREMENT. P IS 



19667000 
19667100 
19667102. 



UPDATED TO POINT TO 

THE RIPPLE pattern; 
LnCAL TP*B«TRr; 



the CHARACTER FGLLQ>»ING 



19667104 
19667106 
1 9667l 0fl 



% 

SltsLQC Rl; SIlsSI + 6; du-lqc 

STJgp; online tp; n at^ wns ; 



19667110 
19667112 
19667200 



TRi.J Dl!sui + 7; bSS = ChRi 



sijaTp; oii»LOc b; 
sii«Loc b; oi«i»tp; 

TRIf?l3?fTALL Y t » B; 



ri(TallY5»b; 
TP:aOi; DI:sp; 



SUsSl*i; ui«aoi+7; DS»*CHf^; 
Si:»Sl+7; 

TALiYt»TAt.LY4.INCR; BtsTAll Yl nSi«rHBi 
TALLYl=TALLY + INCa; t3«=TALLY; DSJaCHR; 



19667300 
19667400 

1966 7') OX). 



sis=LUc TP; ossswus; 



x****«*******«**********«*** ************** 

INTEGER STREAM PROCEDURE SPECI ALMOVECN* A' B j; 

comment moves n characters fkqm a to b heturning 
Value of di after the mlve was completed; 



19667600 
19667700 
Si I»SI"1))3; 19667600-- 
Si:sSl-l); 19667900 

19668000 

Lg66eiQQ,. 

************ * * * ****** *********19668200 

■ ' VALUE N*A'B; 19668300 

B HETURNING TH£____ 19668302 



BEGIN LOCAL NN; 

si;sLOc n; si»gsi-i-6; 



Si:;»a; diub; nn(dsss32 chr; 

SPECIALMOVE»«Dn 

end; 



DiisLoc nn; uii=Di+7; dS8>chr; 
DS!s32 cHr); ds»«n chr; 



19668304 
19668400 
1966650Q 
19668600 
19668700 
19668800 



19668850 



SHOP OMIT iy«ooo3U 

X************************************************«****^^**^t^nk*^**»^*^<>^*^2965Q9QQ 

INTEGER SL»P*RI^CR>ET»THWSIZe; 19670000 

INTEGER SST; - ^ ' 

*3ET omit«omit or not debug 

LABEL PROP IT* simple; 



*POP OMIT 

LABEL BACK#RlPPAT*BjeACK*PROP*LQaK»FlNISHEOSCANlNG^XlT#PROPED; 
DEFINE 



19670100 
19670150 
19670200 



W0H0>»WRD(C0MPaREBuFF/24)## 
PRINTERR0R(PRINTERR8R1)» 
BEGI N 



19670250 
19680000 
1969OQ Q0 



ERRORJ-PRlNTERRORi; 
PATTERNGENERATORtsTRUE; 

GO xit; 



19700000 
19710000 
19720000 



END«/ 
0CCTL*23** 
■J8*JUNKBUFFERil»» 



19730000 
19740000 
19750000 



19760000 
19770000 
^9770100 



Wn« 



T1^ 



9 
10 



12 

13 



16 
17 ' 



20 I 
21 

22 



25 

26 ' 

27 

28 

29 I 

30 

31 

32 ( 

33 

34 

35) 

36 

37 

38 ( 

39 

40 

41 ( 

42 

43 

44 ' 

46 

46 

47 

48 

49 

50 I 

51 

52 

53* 

54 

55 

56 I 



m 



m m 



h 



i 

3 

4 
5 
6 
7 
8 
9 
10 
11 



rihlf:=17#; 

BDULEAN BJ»0CTLL»LNG»MINUS*CGMPILING*LITPAT; 

JL_ ,, 



IF LITPATJ«CHRS«0 THEN' CHRSlslZQi 
CRIwCHRS; 
SSET DMIT.DMTT OR NOT UrRUfi 



19^80000 
I97y0000 

i9Soonno 



19801000 
19801500 
199Q2QQQ 



IF NOT C0MPILINGS=PATBUFF LSS 
SHOP OMIT 

t^HiLF TRue; on „___ 



THE.V P!=PATbUFFi 



19810000 
lySJOOOO 
],t;fi40000 



BEGIN 
BACKJ 

Scan; 



OCTLL«*FAtSEJ 



%150U9850000 

%lSOn9860000 

^ 19870000 



IF BJ»=C0UNT LSS C THEN 

IF LITPAT THEN PK INTLRRUR ( 11 8 J LLi>f 

IF RI t = TEST8UFFERCC] GTR CHHS OR R1 = C 



IH L N , 



19880000 
19881000 

l9ti9on nn 



13 



17 
18 



19 
20 



21 



PRINTERROR(l(5 7) ELSE ELSE 

IF SPECIALCHR«"»"» THEN RISsCHRS ELSE 

IF LITPAT THFN PR INTFRROR Cl Ifi ) FL5F 



19900000 
19910000 
1 9911 000 



IF W0RD=RIPLE 
BEGIN 

RP=CHRS ; 



THEN 



OCTLLIsFALSEJ 
RIPPAT! 

ET:go; 



199<;0000 
19930000 
19940000 



19950000 
19960000 
19970000 



22 
23 
24 



scan; 

IF SPECIALCHR NEQ """ THlN 

IF octll» = 'xord = occtl THFN GU 



HIPPaT ELSg 



19980000 
19990000 
2 0Ug0 Q0Q 



2S 
26 



27 
28 
29 



printerr0rc106); 
firstscanj*lastsgan; 

tSET OMITsQMIT or not DEBUG 



20010000 

20020000 

I 20021000 



if not compiling then 
cqunt:=stringscancfirstscan,laotscan,p,i,ei »qcTll*o); 

IF SAV I N G THF N 



20030000 
20040000 

2nU5onoo 



31 
32 
33 



34 
35 
36 

J?" 

38 
39 

40 
41 
42 



BEGIN 
LASTSCANr 
SPQP OMIT 



'Firstscan; 



C0UNT»sSTRlN6SCAN(FIRSTSCAN*LASTSCAN,ACCUiMLLATtjR* 
l^ETfOCTLLM ); 
tiiET OMlTaQMlT OR NOT DEBUG 



20060000 
20070000 
2 00710 00 



20080000 
20090000 
2QQ9 1Q0Q 



tPQP 



end; 

OMIT 

I F ET«0 



THEN SCAN El SF PR TNTERROR { 1 1 1 ^ f 



aoiooooo 

20101000 
20110000 



IF CMlNUStsSPECIALCHRs"' 
BEGIN 
scan; 



) ON i5PEClALCHR«" + " THEN 



20120000 
20130000 
20140000 



46 



ta 



55 

5« 



IF COUNT LSS THEN 
IF Wftls'TESTBUFFERLO] 
ELSE SPAN 



GTR 63 THEN PRI NTERRQRC 116 ) 



20150000 
20X60000 
2Q170QQQ 



ELSE PRINTERR0R(116); 

END 
ELSE NT6>8l; 



20180000 
20190000 
20200000 



CHRS»»CHRS-Ri; 
SSJET OMlTsOMJT OR NOT DEBUG 
IF NOT COMPILING THEN 



20201000 

20202000 
20 21 0000 



BEGIN 
IF RI GTR 
BEGIN 



4096 THEN 



RIPPLERCP#4095MF MINUS THEN 63-NT6 ELSE NT6)J 

RII«RI*«095; 

ENDt _. . ^ 



20210100 
20210200 
20210300 



20210400 
20210500 
20210600 



h 



1 

\ 2 

3 

4 

6 

7 

» 8 
9 
10 

I 11 

12 

13 
I 14 

IS 

16 
I 17 

18 

19 
I 20 

21 

22 
I 23 

24 

2S 
I 26 

27 

28 
i 29 

30 

31 

32 

33 

34 

35 

36 

37"" 

38 

39_ 

40 

41 

42 



43 
44 
45 
46 
47 
•8 
49 
SO 
51 
52 
S3 
M 



55 
56 



SHOP OMIT 

GO tOOKj 
END 



IF Rl GTR 1 THLN 
RIPPLER(P*RI-1#IF 
I W'f _^ 



MiMUS ThtN 63-N16 LL^t NT6); 



ELSE IF OCTLL'-rtORD^ 
PR1NTERR0R(108); 
IF e>i T jjEN 



■OCCTL THEN GO BACK ELSE 



BEGIN 

0CTLUta8J»*FALSEi 
BJBACKt scan; 



IF SPECIALCHR NEQ "'"' THEN 

IF WORDxRIPlE then GG RIPPAT 

ELSE IF OCTLL«'WORD«DCCTt. THEN GQ B JtJACK 1 : I.SE 



printerrorc108); 
end; 

T RTI«01 



lngi«false; 

WHILE TRI LSS 
BEGIN 



RI DO 



firstscan»»lastscan; etj*o; 

15ET OMiTsOMiT OR NOT DEBUG 
IF NOT COMPILIKG THFN 



COUNT J3STRInGSCANCFIRSTSCAN,LAoTSCAN#P»MINCRI-THI»63)# 

ET^OCTLL'O); 

IF SAV I N G TH F N , 



BEGIN 

lastscani»firstscan; 

iPQP OMIT 



count « =STR I NGSCAnCF I R3TSC AN* lASTSC AN » ACCUMULATOR* 
MIN(RI-TRI*63)'ET*0CTLLM)> 
tSET 0MIT«0MIT OR NOT UFRUfi ^ 



end; 
spop omit 
if ets3 then pr interrqrc 1 13 ) else 

IF ET=2 Them 

BEijI\ 

scan; if nut ( Spec ULc.iH= ANi; 



XL 



PRiNTERRoRdCPJ 
END ELSE 
ET»1 THE N 



L I'j G ) r r L I'v 



ELSE au PHuP; 



IF TRi:=TRI+caLNT Gf^ 
ELSE LNGS=TRUE FLSE 
BE GIN . 



Rl Tri[.N PRlKlLr^i^OHC lC7) 



PROP I 



IF LITPAt THEN 

BEGIN RI{^TRI»cnUMT; GO PRQPEo; emO Li Sr 



IF TRI 8=TRI+CDUNT LSS 
*SET OMITsQMiT OR NCT UEdUQ 
IF NOT COMP i i, I N G THEN 



Kl ThtN 



BEGIN 

IF P.CFFJsO THEN 

IF TRr MOD a»Q THEN 



GO simple; 

IF (SST;5((exp,[CFJ;+p.tFF]' 

BEGIN 



TRI)) MOU 8= THEN 



IF TRI LSS 8 AND Rl GEQ 8XTRI THEN 
BEGIN 
JtiKKI»0; 



20210700 
20210800 
ZOglOVQO 



20220000 
20230000 
20240000 



20250000 

20260000 
...202yOQOQ_ 



20280000 
20290000 
2O300Q0Q 



20310000 

20320000 

.2033000Q. 

2o3aoooo 

20350000 
-20 360 000 



20370000 
20380000 
203VOOOQ 



20400000 
20401000 
20410QOQ 



20420000 
20430000 
20440000. 



20450000 
20460000 
20461000. 



20470000 

20480000 

_aM.tilQiifl.. 



20490000 
20491000 
20500000 



205iu000 

2C3<iU000 
20530000 



20^40000 
20550000 
2O560Q0Q 



205('0000 
205dU000 
20590000 



2O6OOOOO 
20610000 
2Q6 U Q 



20620000 
20620500 
2Q6210 0Q 



20621500 
20622000 
20623000 



20624000 
20627000 
2C628000 



20629000 
20631000 
20631100 



m* 



Ti 



56 ' 
5? 



N 

2 
3 



13 
14 



rs 



h7 



19 

I 20 

21 

22 

\ ^ 
24 

26 

\ 26 

27 

28 

I M 
30 
31 

* 32 

33 

34 
I 35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 

44 

45 

46 

47 

48 

i9r~ 






50 

5' 
52 
53 
S4 
55 
56 



PRCP0GATE(P>JuNK*//TRl*0 3; 

IF TRI:=8xTKl=r<I THEN GO PROPtU; 

JMi 



profit: 



ELSE 

BEGIN 



JUNk:=o; 

IF ET S=(CGUNTS=RI-TRI) 

^095 THFN 



DiV TRl GTh 



BEGIN PRdP0GATt.CP*jB*4095* TKl,o)i 

£TI«ET-«095; 

JUmiMo; 



end; 

PKCPaGATE(P*Jb^ET»TRl, 
ENTTERCCUUNT MOD THi)}; 



SIMPLEt 



GO proped; 

END; 
VALUENCV£((RI 



■TRI) OIV 8>P-TRI DIV 6.P); 



-LE- 



P«=P+C fRI-TRI) UIV 6)i 

IF ET:=(RI-TRI) mod THl NEQ Q THEN 

P» »SPFrTAI HUVFfKT/P-CTRT [My H^.PJ; 

GO prcped; 

END ELSE 

TRi I SS ft THEN 



GO PRQPIT 
ELSE 
BEGIN 



IF RI-TRI GTR ft095 THEN 
BEGIN 



(ENTIERCSST MQQ 
TRI{=TRl+^095; 
JJlDJ 



niv tiJR 



8JKCTF3#P); 



P»«SPEClALMOVECHl-TRi'(SST DIV 8J& 
CENTIERCiiST MOD 8))tCTF3#P); 

END,; 



IPQP OMIT 
PRUPFn> 



End; 



TRIJsRi; 

end; 



CHRS:sCHRS-Ri; 

Scan; 
look: 



IF SPEGIALCHR»0 THEN PRINTERRORC U2 ) ELSE 
IF SPECIALCHR»«)» THEN 60 FInISHEOSCANINGI 
end; 



FINlSHEOSCANlNGt 

Si>ET 0MIT»DMIT OR NOT DEBUG 
IF NOT (COMPILING OS LiTPAT) THEN 



ir 



CHRS NEO THEN 
BEGIN 

REVERSEHQVEteR-CHR3»P>tPATBUFF'»CCH DIV Hyy& 

ENTIERCCR mod 8)CCTF3 ); 

IF RIl»CHRS DiV 8 NEQ THEN 

BEGIN 



CLeER(PAT8UFF#RI-n; 

IF TRI»«CHRS mod a NEO O THEN 

CHARACTFRMQVE(THl#PATBUFF*PATBUFF4Hn; 



206J2000 
20633000 
206j4QQi^, 



20635000 
20636000 
20636100 



20636200 
20637000 
20638000 



20639000 
20640000 
2Q64Qsnn 



2O6i»l000 
206^*2000 
20643000. 



206A4000 

20643000 
20646000 



20647000 
20648000 

?0ft490 QXl 

20650000 

206S1000 

-£ 065 3000 - 



20654000 
20655000 
20656000 



20657000 
20638000 

20659000- 



20660000 

20661000 
20662000 



20663000 
20664000 
206ft'>000, 



20666000 
20667000 
2Q67QQQ.a. 



20730000 
20740000 

20760000 
20770000 
20780000., 



20790000 
20800000 
20810000 



20820000 
20821000 
20630000 



20840000 
20850000 
2 Q86 Q0QQ 



20861000 
20862000 
2Q863nnn 



20864000 
20665000 
20666000 



-r< 



12 



16 



IB 
19 



23 I 
24 



27 
28 



30 



33 

34 
35 I 
36 
37 



40 
41 I 
42 



47 < 
48 



52 

63 i 



• • 



>T 



10 

11 



19 
20 



22 
23 
24 



26 
27 
28 
29 



31 
32 



34 
35 



36 



41 
42 
43 



«« 



«8 



49 
SO 



52 



56 

56 



END 
ELSE 
REG IN 



CLEARCRIM); 
CHARACTERMOVE:CCHRS,COREADDRCftn*PATBUFr j; 

enq; 



20a67000 

2oac8ooo 
2na69flon 



20870000 
20871000 
pnH72nnn 



END ELSE 
*POP OMIT 
IF LITPAT THEN 



ELSE 

COUNT>alkO-CHRS; 



xitj end; 
spop omit 

X#<'*«i####SCAM 



20860000 
20880500 
2Q881flfljQL 



Ri n cK r n PE starts 



20890000 

20890100 



RETURNIJ 

IF donetqg then go alldone; 

, CLOSE(CDDEFTLE)f atl ,\SURANCE . . . . 



IF INSWITCH LSS 10 THEN 

lNPuTiUFFERC0 3:alNPuTBUFFeRC10 3 5»REALCNOT FALSE); 

CROtg N EWSWrTCHl g 



20910000 
20920000 

2 09^ 1 nag- 



LSWlTCHl»PATCHSwITCHS=£RR(jfxS:»ERROR!=D£LAY«*0; 

CLEAR(JUNKBIFFER*60); 

FOR TeST1»63 STfP -1 UNTIL DU 



«lt0220929000 

20930000 

m^ni209-^9000 



Xl'4O5209aOO00 
20950000 
2Q96000 Q_ 



TESTARRAVtTESTJtao; 

lNP»«FlRSTSCANr»LASTSCAN?«CQREADDR£lNPUTBUFFER)i 
ACCtJMtJLAtQRi«CQR£ADDR(JlJNKBuFFERy; 



20970000 
20980000 
20 990 000 



FILLRESERVEDCCQMPAREBUFF); 

IF UNITSC1^C]«0 THEN 

FT! LliNTTSf 



reaoit: 

l£- 



R1 » 



21000000 
21010000 

HTaG»aNT0S«aPT0G»»UT0G»sE0FT0G«aDONESCANJ,CMENT»»MAKETAPEts 21040000 
CONFt«USTlscOMPiLlNGJsREV>»SAVETOG»sFALSE) X 14052 tOSOOOO 

PAGEi «SA VING«gTRU£; — ^ . ^ 2l06Q-(W<^ 

21070000 
21071000 

21080000 
21090000 
241X113000 - 



XTO REINITIALIZE AFTLH EXITING TEST BLQCKS% 
INSWITCH GTR 9 THEN I NSW I TCH ! = I im SW I T CH- 1 n Fj , sr 



IF INSWITCH NEQ 2 THEN 
WRlTEClNFlLEfENTEllDATA); 



scan; 

IF cOUNTsO THEN 
I F S PE C IAL CHR^''*" 



GO CONTROL ELSE 
GOPERROROl) ELSE 
IF COUNT LSS THEN 



TH t^N 



21U0000 

2U<;oooo 

21130000 



tOPERBUR(O) ELSE 



IF W«aWORO=l THEN 

GO CONFIDENCE ELSE 
IF REV>a(Ws6 OR (W LEQ 26 



21140000 
X150121150000 
21160000 



AND W GEO 24)) THEN 



21170000 
21180000 
21190000 



*SET 



GO CONFIDENCE EUSE 
IF W»14 THiN GO AtlDONl 
O MlTaNOT TUNEUP 



ELSE 



IF W*34 THEN *DELTA 
BEGIN 

scan;if splcialchr-"=" 



21191000 
21200000 
JlIMIHIOOOM. 



THEN SCANi 



IF COUNT GEO THEN QOPERR0RC27 ) ; 

SOELTA »«TEST8UFFERC03; 

scan; IF COUNT NEQ THEN LASTSgAN?*FXRSTS^AN; 



*150l2l200l00 
X150121200200 
ai50l2l200300 



SPOP OMIT 



GO TO 

end; 



Ri; 



J150121200400 
X 150121200500 
X1S01212Q0600 



%150121200700 

Xlb0l2l200800 

J150121200900 



GOPERRORC®); 
CONTROLI 

SAVING*»FALSE^ 



X150121210000 
21230000 
21231000 



56 ' 
57 



h- 



9 

10 

11 

12 

13 

J14 

H5 

16 ' 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

iO 

31 ~ 



32 
33 

34 

35 

36 

37" 

38 

39 



40 
41 
42 
43 



44 
45 
46 
47 
U 
49 
50 
51 
S2 
53 
54 
55 
56 



IF CONTROLCARD THEN GO MCCLRUN ELSE 

GO mcclcompillr; 

CQNF l D E NCEt 



IF NOT CQNFSCAN THEN 
IF TAPETEST OR NOT DISKTEST 
GO RUNTAPFTFSTS 



212A0000 
21250000 
212 6 0Q 



THEN 



ELSE 



BEGIN 

SPnuTrcS/ 



PFRRQRl 



60 RtlNDISKTESTS; 
ENOJ 



21270000 
21280000 
2l2fiQinO 
21280200 
21280300 
?l2flQ0nn 



IF EQFTOG THEN 
BEGIN 

IF CHn?0 THFN GO A|, LOUNEt 



21280500 
21280600 
?131,0000 



END 



writeccfile'eoff); 
60 exit; 

FLSE 



21J20000 

21330000 

.21i.3t000 



cuntRolcardeRhqr; 

GO TO IF lNSWlTCHs2 THEN LXIT ELSE RETUHNi; 
MCCLCQMPILERI . 



BEGIN 
*i>ET OMIT*OMITCOMPILER 



21340000 
21350000 

21 360 000 

%lb0l2l3/0000 
21390000 
-21900000- 



INTEGER 

THISTEST* 

JtNlJMHFR 



DF CnNF TEST BFING CrMPU EH 



NEXTUNIT* 

XNUMBER OF UNITS DECLARED 
NEXTPATTERN. 



21V20000 
21V20100 

24ii.iaaxm - 

219^0000 
21950000 
21950005 



INUMBER UF PATTERNS QLCLAREQ 
RBlJFF# XINDeX OF BUFFER FCH READS WITH PATTERN 
JLt. 



21960000 
21960005 
21 V7 0QQ0 



SIZE* 



XTEMPORARY STORAGE (USUALLY UNIT NR) 
XTEMPORARY STORAGE 



219/0005 
21971000 
2199Q0QQ 



D8UFFSIZE* 

XSIZE 

NEXTlABE L f 



21990005 
22000000 
gPOOOnO'S 



rF BUFFER ONE 



XNUMBER UF LABELS DECLARED 
NEXTSUB* 

XNUMBER OF SUBROUTINES DECLARED 



22001000 
22001005 
22020QQQ 



22020005 
22O2IOOO 
22021005 



XTEMPORARY STORAGE (USUALLY PATTERN NH) 



XTEMPORARY ST0RA6E (USUALLY BUFFIR NR) 
SAVEA^"''^ 

XREL ADDRESS IN SEG WHEN S NEQ 



22030000 
22030005 
220^ 



LSEG* XSIZE OF LARGEST SEGMENT 
NEXTSEG, 

XLARGEST SEG NR THUS FAR 



2 20 « 000 5 
22070000 
22070007 



TIME 11 



22071000 

220aoooo 

22060005 



XVALUE OF TiMEd) WHEN COMPILATION STARTEO 

DTAI I A<:TrDDno! 



REAL LASTERROR; 

XSEQUENCE NUMBER OF LAST SYNTAX ERROR 22090205 

FORMAT 22130000 



22090000 
22090005 
*»»•♦«*»« A** 22090100 
22090200 

22090205 



FORMAT 

LA(Xll2*8(''X"))* 
PATSFf^'ND. PATTFRMS 



'l i) t 



22131000 
221 40 000 



• • 



h- 



2 
3 

4 
6 
6 
7 

a 

9 
10 

11 

12 
13 
14 
15 
16 
17 



19 

20 



DISKSIZEFCPRUG. DISK FILE SIZE = 
EFF("NUMBER Of' tRHORS DETECTEDi 

1*^^" SFcnNna,",) 



"pIU*" S£6S")» 

COMPILATION times". 



SEGSIIEF("NC. PGM SECS * "»I3>"; TOTAL PRQG SEG »» 
"SIZE * "#I5*" WDS"); 
X* t********** **** ******* it******************************'*,******* 
DEFINE 



22lb0000 

22160000 

JlZX-fOOOQ 



22iaoooo 

22190000 
iir*#»**it»*2220n00Q. 



DEFINE 

ERRORMAX'80#f 
lUNlTgQlt 



XNUMBER UF SYNTAX ERROR MiiGS. 



8UFF*1«* 

PATs2i# 

DURLE»3»i 



22210000 
22211000 
.^ZiilOXJ-O 



22230000 
22240000 
2225^0110. 



5PCE*4#/ 

WTH=7#^ 
tlSlN G»9#^ 



22260000 
22270000 

-22<iaonoo 



NIGE8«9#, 
0N»l0#* 
TRRwl If « 



22290000 

22300000 

-22310000 



GUG0»12## 
ESLE*13#* 
NONQ=»Utf» 



22320000 
22330000 
22340000 



STP«15** 

RIPLE«17«* 

QC CTL823#* 



22350000 
22360000 
22370000 



22 
23 
24 
25 
26 
27 
28 
29 



30 
31 
32 
33 
34 
35 
36 



37 

38 

39 

♦0 

41 

42 

43 ~ 

44 

45 



46 

47 
•8 
49 
SO 
51 



52 
53 



54 
55 



56 



PAR32a## 

TPMRKs25#* 

TLIYS29>, 



TGLE»30#* 

TST«3l#, 

FURT»32<. 



223d0000 
223V0000 



22410000 
22420000 
2 24 30000 



ESLAFa33#^ 

THRU'36#* 

JHH=37«p 



22440000 
224b0000 
22 460Q0Q . 



M0D3»38## 
N0E»5l#» 
PGEaSHt; , [ ^ 

%**********************************iir***************x*******************#2246OOC0 

224 900 5 



22461000 
S1140322462000 
224700 00 



ARRAY ED0CC0JMAXSEGS-l,0Jbll]; 



COMMENT USED TO HOLD THE EMITTED C"DE. THE ROWS QF 
THE ARRAY CORRESPOND 10 THE SEGMENTS IN THE 
, SiMPL PROGRAM, SiMPL INSTRUCTION S ARe A 



22490010 
22490020 
22490030 



FULL WORD IN LENGTH. l/Q INSTRUCTIONS 
CONSIST OF TWO WORDS. 



22490040 
22490050 
22490060 



THE FORMAT OF THE INSTRUCTIONS IS AS FOLLOHSJ 
INPUT TALLY INSTRUCTION 



22490070 
22490080 
22490090 



f0»42)g0 



C42»63»l 



22490100 
22490110 
2249012Q 



READS INPUT FILE AND ASSIGNS "TALLY*^ THE 



VALUE OF INTEGER FOUND THERE, 
(DEBUGGING INSTRUCTION QMY ) 



22490130 
22490140 
2 2 490 150 



PRINT INSTRUCTION 



22490160 
22490170 

22490180 



22490190 

22490200 
22490210 



h 



[15 



17 
18 
19 



22 
23 
24 
25 



27 
28 
29 

30 
31 
32 
13 



34 

3S 



36 
37" 



38 



39 



42 



49 
50 



a 



ss 



ro:i3=o 



PRINT 
PRINT 



Pattern 

RliFPFR 



[2I13« l» DISPLAY TAULY 
C3»53»0 USE est 103 OR SIZE OF 
»3Q '^nlSPLAY THRU TALLY" 



DISPLAYED ITEM FOR SIZE 



=31 "DISPLAY THRU WRDCUUM' 
[8S103=0 DISPLAY ENTIRE ITEM 
'»1023r SFF r3n3 



»OTHEf*WISE# USE AS SiZE FOR DISPLAY 
[FF3 »3«77777''# DISPLAY NO DATA 
*OTHeRWTSF., PATTfRn OR BuFFFR NUMBfR 



C33«13sO, 
r3^?63aO 



EDIT DATA (DISPLAY STATEMENT) 

DO NOT EDIT DATA (PRINT STATEMENT) 



[40J13S1* PAGE BEFORE PRINTING 
t11lt3»0, SiNfiLE SPACE 
- * 1 » DOU BLE S P A CE 



[42J6]s2 

END OF LOOP I NS TRUCTIU N 



[o»n*o 



C1»13=0* 
[2»163sO 



NORMAL END OF LOUP 

END OF TEST LOOP (* TIMES) 



tFF3 s RELATIVE ADDRESS oF BEGINNING OF 

CSCF3« 0* SUBROUTINE EXIT INSTRUCTION 

» OTHERWrSE* RgPETATIVE INUirATOR 

[IFL3» 3 



LOuP INSTRUCTION * 1 



FILL INSTRU CTI QN 



roii8i»Q 



[FF3 ^PATTERN NUMBER 
[SCF3 SBUFFER NUMBER 
[IFL3 =4 



ROTATE INSTRUCTION 



22490220 

22490230 

.2ZM.Q2AQ. 



22490245 
22490250 
3?49Q?60 



22490270 
22490280 
22490290 



22490300 
22490310 
2?49Q:^?0 



22490330 
22490340 
2249Q350 



22490360 

22490370 

-22490380 



22490390 
22490400 
22490410 



22490420 
22490430 
22490440 



22490450 

22^90460 
22490^70 



22490480 
22490490 
2 2490 500 



22490510 
22490520 
22490530 



22490540 
22490550 
22490560 



22490570 
22490580 
22490590 



22490600 
22490610 
22490620 



tOU3*0 



ROTAT E RIGHT 



il# ROTATE LEFT 
t2ll63«0 
EFF39NUMBER OF CHARACTERS TO ROTATE 



22490630 
22490640 
22490650 



CSCF3SBUFFER NUMBER 
[IFL3«5 



22490660 
22490670 



SHIFT INSTRUCTION 



22490690 
22490700 
22490710 



C0I13-0 
[1U3»0* 
' if 



22490720 
22490730 
2 249 07 40 



SHIFT 
S HIFT 



LEFT 
RTGHT 



[2I163»0 

CFF3«NUMBER Of CHARACTERS 

rscFinfiurrrR NtiMPFR 



22490750 
22490760 
2 2490770 



TO SHIFT 



224 90780 
22490790 

22490800 



• • 



h 



10 



>3 
14 
IS 
16 
17 
IS 



19 

20 



21 



23 



25 



27 
28 



29 

M 



34 
35 



36 
37" 



41 
42 



47 
48 



«9 
50 



52 
i3 



55 
56 



CIFL]s6 

C OMPA RE TNSTRU C TinN 



22«'>>0820 



CQUJ'^O 



tl«nsO» DUMMY COMPARE STATt-MENl 

'X» CONDITIONAL ERROR CODE FOLLQWj 
[2tl]sl^ THEN NO ERROR OUTPUT LN COMPARE 



22490840 
224908S0 
22490860 



EkHqr 



224S)0870 

22490880 

X1A032249086 5 



t3in»l# THEN NOISE ON €RR09 OUTPUT ON COMPARE ERROR 
[41 in jao 

[fF] aPATTCRN NUMBER ♦ MAMBUFfS^ If PATTERN CQmPARP 



=buffeR 

tSCFJsBUFFER 
XIFL3«7 



NUMBER OF FIRST BUFFER' OTMER^^lSE 
NUMBER OF SECOND BUFFER 



XU0322490B90 

X140322490a93 

. 224tfQQQn 



BRANCH INSTRUCTION 



[01183 



CSCF3 

ciru3 



s 

g SEGMENT 



TO BRANCH TO 



REUATIVE 
6 



ADDRESS T8 BRANCH TD 



JUMP OUT OF SUBROUTINE INSTRUCTION 



[0l42]ii0 
[IFL3 s9 



NOTe« THIS INSTRUCTION li EXECUTiD PKIDR TO 

BRANCHING FROM A SUBROUTINE TO A LABEL 
IN SfG^ENT 0. IT CAUSt^S Thf PSLUPg 



STACK TO BE REINITIALIZED (SIMILAR TO 
STACK ACTION IN ALGOL PROGRAM WHEN 
BRANCHING FRHM PROCEDURE TO OUTER 



BLOCK LABEL) 
JUMP OUT INSTRUCTION 



rotilsQ 



tl»n = 0# STOP DOOP LOOP (BRANCH TQ t-ND GF CURRENT DO LOOP) 
NOTEt Eltn IS SET /<HEN INSTRUCTION I i> 



USCO TO ADJUST PSEUDO STACK PR lOR 
TO BRANCHING FROM A 00 LOOP TO A 
LABEL OUTSIDE Of THE LOOP, 



r 2»3n"Q 



INHIBIT BHAnCh TO END Of LOOP 



tSCF] »0# ir NOT tit 13 
•NUMIER Of LOOPS 



TO JUMP OUT Of # If IIU3 



I/O INSTRUCTION (FIRST WORD) 



cotn>o 
citn«o* 



NO ERROR CLAUSE IN I/O STATEMENT 



22490910 
22490920 
??490930 
22490940 
22490930 
?g49QQAn 



22490970 

22490980 
22 490^ 1.0. 



22491000 
22491010 
2 249l 02il. 



22491030 

22491040 

-2?49ia5-Q 



22491060 
22491070 
??4VlflflO- 



22491090 

22491100 
22491110. 



22491120 

22491130 

_2249114Q.. 



22491150 
22491160 
2249U70 



22491180 
22491190 
gg49igQQ 



22491210 
22491220 
22491230 



22491240 
22491250 
82491260 



22491270 
22491280 
22 49 129 Q 



22491300 
22491310 
22 4 9 1320 



22491330 
22491340 
22491350 



22491360 
22491370 
22491360 



# • 



>r 



"l* CQNDITICNAL ERROH CODt FOLLOWS 
[ZlllaO* FULL UR ABREVIATED LKROR ANALYSIS 
'!» NO ERBGR ANALfSlo 



[3l5]«INTERNAL 
[8«10]«SIZE OF 



UNIT NUMBER 
I/O OPERATION 



22491390 
22491400 



NOTE* IF SF=1023* CTALLY + ?) OIV 8 IS USED FOR SUE 
IF Sf=1020 AnO GPEkATION IS A READ, NO SIZE 
CHECKING IS PERFORMEU 



2249U20 
2249U3C 
2 ?<ttf U 4n 



ci8«73«same as Tape i/q descriptor for this operation 
c25»63sexpect€0 error field 

fscF] «o : 



2249U50 
2249H60 

22f9H7Q 



8 
9 
10 
11 
12 
13 
14 
|15 
16 
17 
18 
19 
20 
21 



22*9U80 
22491490 



22 
23 
24 
25 
26 



27 
28 
29 

30 



31 

32 

33 

34 

35 

36 

37" 

38 



40 
41 
42 
43 
44 
45 
46 



47 
•8 
49 
SO 
B1 



52 
53 



54 

55 



CIFL] «ll 

I/Q INSTRUCTION (SECOND WORD) 



22491510 
22491520 
224 V 15 M, 



co» n»o 



[Un=0* FULL OR NQERROR ANALYSIS 
1* ABREVIATEU ERROR ANALYSIS 
r 2»13''l^ THEN NOTSE ON ERROR OUTPUT 



22491540 
22491550 
2 2491 56Q. 



t3J5]«0 

t8!103»0* IF N8T SPACE OPERATION 
*Q AND SfiArr nPERATlnN* INHTRIT <T7r CHFrKTMft 



22491570 

224V1580 
ail40 J2 249 158 5 



NEq AND SPACE OPERATION' SUE OF EXPECTED REC. 
[FF3 »3"77777", NO PATTERN USED 

OTHERWiSFt ^'ATTERN NUHdrR 



IN WDS 



X140322491590 

22491600 

22491610 



[SCF] SBUFFER NUW8ER 
. NOTE! IF SCF«3*^777'' /PATBUFFC*] IS USgP 



22491620 
22491630 

22491640- 



22491650 
22491660 
22491670 



CIFL] »U 
EZjl. 



READ 
^RITE 



«3* 

s4» 
"5. 



SPACS 
ERASE 

REW I N D 



22491675 
22491680 
22491690 



22491700 
22491710 
2 249 1 7_2fl- 



GO TEST INSTRUCTIOIM 



22491730 
22491740 
22491750 



C0»42]«0 
EIFL3 gl? 



22491760 
22491770 
2? 49 17»n 



FILL TALLY INSTRUCTION 



22491790 
22491800 
22491810 



tOtl3»0 

Clin»0> REPLACE TALLY WITH NEXT INSTRUCTION 



=1* Replace tally with tally+next 

[2J403SO 

CIFL3=13 



IN3THUCTI0N 



22491820 
22491830 
22491840 



22491850 
22491860 
2 249 1 87 Q 



FILL TOQSLE INSTRUCT ION 



22491860 
22491890 
22491900 



C0I18]»0 
[ FT 3 "NEW 



iSCFI *1 
tiFLJ >»13 



VALUE OF TOGGLE 



22491910 
22491920 
22 49 1930 



22491940 
22491950 
2249 196 



h 



10 

11 

12 



13 
14 
IS 



16 

17 

ia 



19 
20 
21 



22 
23 
24 



25 
26 



27 
26 
29 



30 



34 
3S 
36 

37" 



42 



47 
«8 



52 



TEST TOGGLE INSTRUCTION 



tO»333«0 
tSCFJ 92 



22^9X970 
22'<91980 
g2^V1990 



22492000 
22492010 
224 92 2 0- 



TEST TALLY INSTRUCTION 



NOTEI CONDITIONAL STATEMENTS GENERATE CODE AS FOLLOWS 



22492030 
22^92040 

22<*92fl.5iL 



TEST INSTRUCTION 

CONSTANT 

BRANCH IN STRUCTION 



22492060 
22492070 
2g492nwn 



INSTRUCTION 



C tJR A NCH TO " EL .'aE " PART) 



22492090 
22492100 
2 2492 U0 



BRANCH INSTRUCTION (6RANCM AROUND "ELSE" PART) 
INSTRUCTION 



22492120 
22492130 
?2^9?140 



22492150 
22492160 
22^9?170 



IF THE 
"A** IS 



TEST INSTRUCTION YIELDS A POSITIVE RESUjuT 
iNCftrMENTED BY !■ THUS .SKIPPING THE FIRST 



BRANCH iNSTRUCTICNt 
-Ul-Ua3«0 : 



22492180 

22492190 

- 22492200 



CFF3 »0, TEST TALLY n CONSTANT 

«1# TEST TALLY LSS CONSTANT 
»2 > TEST T A LLY GTR CQMST A NT 



*3, 

*4» 



TEST 
TEST 
TE S T 



TALLY 
TALLY 
TALLY 



LEG 
GEO 
NEQ 



CONSTANT 
CONSTANT 
CONSTANT 



22492210 
22492220 

22492240 
22492250 
22492260 



[SCF3 
CIFL3 



«3 
"13 



22492270 
X140622492280 
^14Q6?2^9?2fl'i 



TEST MOD III I/O-S INSTRUCTION 



22492290 
22492300 
2?492^^0 



NOTEl THIS INSTRUCTION DOES NOT REQUIRE A FOLLOWING CONSTANT 
[Ol333»0 . • ■■.; ■-■■ . 



22492320 
22492330 
2? 49 2 34( 



[SCF3 
tIFL3 



s4 
«13 



22092350 
22<»92360 
224»2370 



I/O ERROR TEST INSTRUCTION 



22492380 
22492390 

22192400 



NOTEl DOES NOT REQUIRE FOLLOWING CONSTANT 



22492410 

22 « 9.2420 
2249 243 



C » 2O3«O 



C24193* BUFFER NUMBER IF SPCClFrEO OTHERWISE 
tSCFj «5, TEST FOR PARITY 0-20 



22492440 
22492450 
X140622492460 



s7, TEST FOR EOT 
«8# TEST FOR EOF CD" 
99, MEMORY PARIT¥ 



X140622492465 

X140U2«92470 

224f2460 



'21) 



•lOii TEST FOR SIZE ERROR 
•11* TEST FOR DATA ERROR 
«»12» TEST FQR^gLANK TAPE 



22492490 
22^92500 
22492510 



22492520 
22<»92530 



CIFL] =13 



h 



8 
9 
10 
11 
12 
13 






16 
I 17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 ~ 

93 

34 

3S 

36 

37 ~ 

38 

39 

40 

41 

«2 

♦3~ 

44 

45 

46 

47 

•8 

49 

50 

51 



• 
• 



52 
53 
54 

55 



56 
5Z. 



BEGlNNINfi OF LOOP iNSTRUrTTUN 



roig4]»Q 



t24l9]sRELATlVE 

CSCF 3=1 

riFL 3*Q 



ADDRESS OF END UF THIS LOOP 



ENTER SUBROUTINE INSTRUCTION 



to»n*o 
ci» n=i 



t2»223»0 

t24l9]«REtATlVC 
rSCF 3«1 



ADDRESS OF END OF SUBROUTINE 



[IFL 3=0 

WAIT INSTRUCTION 



r Q»3 3 3afQ 



tSCF 
tlFl 



IsNUMBER 
3*14 



OF SECONDS To V«AlT 



DISPLAY INSTRUCTION 



[0«1 
[112 



3«0 
3sO 



NO THRU 
FROM 



OR FROM MODIFIERS 



t3l3 

[612 



»2 
3*0 
3»0 



THRU 

<InTEGER> FOLLOWING THRU OR FROM 



»1 <USER VARIABLE> FOLLOWING THhU OR FROM 
52 <BUFFER VARlABLE> FOLLOWING IHRU UR FROM 
[6<103sO USE SIZE OF VARIABL E SPECIFIED U 16123 



» OTHERWISE <lNtEGER> SIZE 
[18I63* S-RELATIVE INDEX OF <USER VARIA8L£> 
[24I93« BUFFER OR RATTER^I NUMBER 



[33113 = 1 THEN PAGE BEFORE PRIMING 
[34113=0 SINGLE SPACE 
=1 POUBIE SPACE 



C35«13«0 DON«f EDIT CJifiiNT STATEMENT) 

*1 USE EOlTCDlStLAY STATEMENT) 
[36I33W <BUFFER VARIA9l£> TYPE 



= 
= 1 
= 2 



C394 3 3«i 
»0 



WRDCOINT 

lOD 

RESULT 



DISPLAY 

NULL 
BUFFE R 



TYPE 



t IFL 1*15 



»2 PATTERN 

"3 <USIR VARIABLE> (TAlLY) 

84 <BUFFFR VARIABLF> (SPrClFIFn TN C36»33) 



224V255C 
224*2560 
2 2492 5 7 -0. 



22492580 

22492590 
?249?i«inn 



22492610 
22492620 
22492630 



22492640 
224^2650 
22492660 



22492670 
22492680 
22492690 



22492700 
22492710 
22492720. 



22492730 
22492740 
22492750 



22492755 
22492760 
22492765- 



22492770 
22492775 
224927S0 



X140622492785 

X140622492T90 
ii406g94927QS 



X140622492800 
X140622492805 

a; 14^6224926 in 



X140622492815 
X140622492820 
1140622492825 



1140622492830 
X140622492835 
ail4062?492fl4Q 



X140622492845 

XI40622492650 
X 140623492855 



X140622492860 
X140622492865 
X14Q622492870 



X 140622492875 

X140622492880 
X140622492a65 



X140622492890 
X140622492895 
X14O62 2 ^929Q0 



X140622492905 
XI 406224929 10 
1140622492915 



X140622492920 
X140622492925 
X1406??49203n 



X140622492935 
X14Q622492940 
X H0 62 249 29 45 



11^ 



# • 



h 



ARRAY ERRMESS[aJ((LRRaRMAX + 19) DIV 20 )- 1 * : I 39 ] ; 
■CflMMQLI, THIS ARRAY hQl.HS T HF SYN TAX F R K OR , w paSAfiE 



224V3000 
22^93100 
22^93200. 



DESCRIPTIONS. IT IS NUT FILLED UNTIL A 22493300 

SYNTAX ERROR OCCURS (5£E f ILLE«RORM£SS BELOW); 22493400 



12 
13 



15 
16 
17 
IB 



19 
20 
21 



25 
26 
27 



10 

Jl" 

32 

33 

34 

35 

36 

3?" 



42 
43 



49 
50 



52 
^3 
54 



55 
56 



DEFINE 

NR0FRESERVE0 = 25j(«^ 

MAXLASEl Sf -IZtff 



LNAMESrLNA^ieSll»LAYe£LSE0#LNAMESl3## 
XLNAMESCL3 CONTAINS THE NAME OF LABEL L 
LAREi SfLABFLSlT^I AYBFI SCMLaBELSI ]*t 



22bi00G0 

22520000 

.-25iiiJaO-0^ 



XTHE 
XTHE 



FORMAT OF LABELbtL] CHANGES AS 
LOCATION Of THE LABEu IS KNUa'N, 



INFORMATION CONCERNING 

AS FOLLOWS: 



22^40000 
225^0010 
22'a')0000. 



X 

X 

JL 



X 
X 
X 



n LABEL SEEN IN gQ TO STATEMENT BUT NOT YET FOUND 



22bb0010 
22550020 
22550 030 



X 

X 

A. 



[SF ]*MAXIMUM iMfc-Sr LEVEL FQH 
[FF ]«SEGMENT OF LAST BRANCH 
TH I S LABfc u 



LABEL 

Instruction 



22550040 
22550050 
225500 6 



FOR 



[CF 3*RELATIVE 
FOR THIS 



ADDRESS 
LABEL 



OF LAST BRANCH INSTRUCTION 



22550070 
225:10080 
22 55009Q - 



X 
X 

% 



2) LABEL SEEN ILOCATION KNG,nN) 

rot 13^0 



22550100 
22550110 
?g550l?n 



X 

X 

X 



tnn«i 

t2H3>0 

f3<6iaSEGMFNT 



22550130 
22550140 

2255iU5-a- 



>(HERE LABEL IS LOCATFD 



X 
X 
% 



C9J9]5REL ADDRESS VyHERE LABtL IS LOCATED 

Cl8t9]=NEST LEVEL OF LABEL 

C27!6JaSECiMENT OF LAST BRANCH INSTRUCTION 



22550160 
22530170 
22550180 



X 
X 
X 



X 
X 
X 



PRIOR 70 OcCURANCE OF LABEL 
CCF 3.REL ADDRESS OF LAST BRANCH INSTRUCTION 
PRIOR T O OCCURANCE OF LaBEL (IF LABEL 



22550190 
22550200 
22550210 



GCCuBS PRIOR TO 
FOR THAI LABEL* 



ANY (30 TO Statements 

[CFJ*3"77777") 



22550220 
22550230 
22550240 



225b0250 

22550260 
2255O 270 



PNAMESCPNAMESl]«PArTERNSCl»PNAMESl]## 22560000 

XPNAMESCP3 CONTAINS THE NAME OF PATTERN P. IF PATTERN 22560010 
*P IS NOT NAMEO^PNAMEStPJv CONTAINS THE ALPHA REPRESENTATION 22560020 



XOF P* left JUSTIFIED WITH FOLLOWING dLANKSC" 
X "13 " FOR PATTERN 13) 



E.G.' 



XPATTERNSt0,»3 DOES NOT 

XOF PATTERNSC0>F3 I^ AS 
X' 



HAVE A DEFINED 
FOLLOWS J 



22560030 
22560040 
22560050 



NAMEt THE FORMAT 



X COilDsO 

X tl»l]sO* NON-TAPELABEL PATTERN 
J «1> TAPE LABEL PATTERN 



22560060 

22560070 
22560080 



X t2i6J»0* 

X C8ti03»SIZE Of PATTERN IN rtQROS 

» Cl6lSl*INb£X INTO POeSC£*| WHERE DESCRIPTION Of 



22560090 
22560100 
22560U0 



X P STARTS 
X C23J lOlsRECORO NUMBER IN 
J OF P IS LOCATED 



22560120 
22560130 
22560140 



CODE FILE WHERE DESCRIPTION 



X 
X 
X 



tCF 3»SIZE OF PATTERN IN CHARACTERS (IF 0» PATTERN 
DESCRIPTION DID NOT SPECIFY A FIELD WIDTH 



22560150 
22560160 
225601 70 



22560180 
22560190 
2 2 S 60 2,00 



m • 



>r 



2 
3 
4 
5 
6 
V 
8 
9 
10 
11 
12 
13 
14 



X8NAMES[0] = BNAMEScn = 

%FQn H GFQ ?f RNAMESLR] CONTAINS ThF :\AMF IIF HtUFF^ , H H 



225<'0000 
22!370010 



XBUFFERSC0#*3 DOES NOT HAVE 
XITS FORMAT IS AS FOLLOWS 



A DEFINED NAME 



22570030 
22570040 
29570QSn 



C0«1]=0 
tl»13=l* 



% C2>6]s0 

% CSF] «SIZE OF 8UFFEK 
JL tFF3 g3"77777** 



RUFF F R OCCUHS IN A SHIFT Or RQTAT^ STMT 



225^0060 
22570070 
22570072 



% 



CCF] =0 



22570074 
22570080 
2 25700 90 



SUBHAX=62»^ 



SUBRCSUBRn«SEGDlCTtSUBRU.CGF]** 

%SUBRtS3 CONTAINS THE SEGMENT NUMBER Of SUBROUTINE S 

SUBNAMESCSUBNAMFSl]«SWSrSUdNAM£Sni* 



22570092 
22570094 
225701Q Q. 



XSUBNAMECS] CONTAINS THE i^AmE OF SUBRUUTliNE S 
WORDsWRDCCOMPAREBUFF^NROFMUd)** 

cnnFCcnpFi isFnocfSocnoFi ]#f 



22570200 

22570205 
P>57Q^nn 



22570305 
22560000 
225900 QQ 



MAXLEVELS»9«# 

NR0FM00.55«i **.««««. wvu 



22600000 
X140622610000 



ARRAY 



RESERVED [0 J NROFRESERVED-1 J* 
^V ERB TA BLE 



LAYBELSCOU,0IMAXtABElS-l]* 

SEG0lCTt05MAXSEGS*iJ# 

1. 



22630000 
22650000 
22650010 



xformat of segoictcsj 

% 

* co»n=o 



is as follows 



22660000 
22670000 
2?67QnOh 



% 
% 



% 
% 
% 



tilUaO 

C2»63»0 



NORMAL SEli 
SUBROUTINE SEGMENT 



22670010 
22670015 
2 2670 020 



C8»10]=SIZE OF SEGMENT 

CFF 3aL0CATI0N OF SEGMENT START IS CODE FILE 

EOF ]=SEGMENT NUMBER OF SUBROUIlNE S 



22670025 
22670030 
2 2670 03 5 



22670040 
22670045 
22670Q5Q 



SBScOtSUBMAX-ll* 
BUFFERSt0«l«OIMAX«UrFSl* 



PATTERNS[0»l*OlMAXPATT£RNS-n* 
UNITABLEC0;i*0»l7j; 



22670055 

226 71000 
22680000 



22690000 
22700000 



UNXTABLEtOJl'Unn; 22700000 

PRO C £ DURE F I LIERRORMeSSC A)i ARRAY AC***3; ~ — ^— 22700200 

BEGTN O-^TAA^Art 



PROCEDURE 
BEGIN 
FILI AC 0**1 WITH 



22700300 
22700400 



2*"STATEMEN",*"T MAY NU","T BEGIN "^''rtlTH a N^^'-QN-ALPHA", 

" C^HR ___^^ 

3f**Q0 LOOPS"*" NESTED "^''MURE THA-^^N 8 DEEP"*" "# 

•• "* 

4>'*MISSING "#"0R INVAl'%"ID LOOP "^i^REPETI TI"*"V£ INDIC"» 

ffATnO w. 

'*"2 ••* 



22700500 
22700600 
227QQ700 
2270G800 
22700900 
2 270 ^000 



5#"L0qP REP">''ETITIV£ "#"INOICATO"*"R GTR 51 



6, "MISSING "#"TIMES 



DO LOOP"*" 



22701100 
22701200 
227Q1300 



7*"MISSINQ «."FMQ or L","DOP 



"«" 



22701400 
22701500 
22701600 



1 

2 
3 

4 

S I 
6 
7 

8 I 
9 
10 

m 

12 

13 

14 ( 

16 

16 

in 

18 

19 

20 I 

21 

22 

23 ( 

24 

25 

26 ^ 

27 

26 

29 ^ 

30 

31 

32 { 

33 

34 

35 I 

36 

37 

38 

39 

40 

41 

42 

43 

44 ( 

45 

46 

47 ( 

48 

49 

50 ( 

St 

52 

53 ' 

54 

55 

56 ' 

57 






# • 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 



20 
21 



22 
23 



24 

K 



26 
27 
28 
23 



30 
31 " 
32 
33 

34 
35 
36 

37 ~ 

38 

39 

40 

41 

42 

43^ 



45 
46 
»7 
18 



49 
SO 



51 
52 



53 
S4 



55 
56 



S^^STATEMEN","! BEGINS"*" WITH AN"*" I^VALID"*" VEHB "» 



100»''C0NST«UC*'»**T RE8UlR''*'»e5 PR£OE''*''CLARED P",»'AtTE 

101. "MISSING ♦'^"Pattern ",''identifih,"er »»^ 



RN 



103f"M0R£ THA"*"N 64 PAT'%"TERNS DE"»"CLARc.D '%" 



»t . M 



W^ « 



105#"FIE1.0 WI"."OTH TOO "."lARQE 

106>*^MISSING '^>"RTGHT PA"*"R£mTHEST"«"S IN PAT"»'*TrRNl nfS»» 

"RIPTION ". 
107*"INVALID "'"FIELD Wi'S"oTh IN P"*"ATTtRN 0'S"ESCR IPT TS 

1M 



iOe.^MISSlNG •S*'«yOTElN''»" PATTERN"," DESCR IP"#"TI0N "* 

U1*"MISSING ">"QuOTC IN">" BiPPLE "^"PATTERN "#"DESCR IPT"> 



"ION 



U2*"MISSING "#"DELIMITE"."R IN PAT"*"TEKN Q£S"*"CRIPT ION"* 



ll5#"INvAtID "#"CHARACTE"#"R IN OCT"»"Al STRIN"#"6 "# 

n "#■■■■.•■■■■■■■>■ 

U6, "INVALID ">"INCREM£N"»"T IN RIP">"PlE PATT">"ERN 0ESC"# 



"RIPIION ", 

117, "PATTERN ","DESCRIPT'%"HJN lONG"»"ER THaN ","240 CHAR", 
"ACTFRS !L»- 



U8, "MISSING ".•♦FIELD WT'/^DTH 
LnrKfFRRMFfififO.»1 w 



FILL Atl,*] WITH 
119, "MISSING "."SEM1CDL0","IS OR END"'" 



161, "MISSING ", "LABEL I q", "El^T IFIER"'" 

!! 'It 

162,"SUBR0UTI",*'NE NOT 0","tCLARED "," 

«■■■■'■ n^ ■, .• 

163, "60 TO ST","AT£MENT ","FDR THIS", "LABEL IS",»NOT IN T", 



22701700 
227O1B00 
?;2/01900 



22702000 
22702li)0 
227Q22QQ 



227U2300 

22702400 

.22^^2500. 



22702600 
22702700 
2 27Q 2flQ0. 



22^02900 
22703000 
22^03100 



22/03200 
22/03300 
22703400 



22703500 
22^03600 
227 03/0 



22703800 
22703900 
227Q4nQQ 



22704100 
22704200 

_^^Liiiuxlil 



22704310 
22/04320 
22/04325 



22/04330 
22/0/»400 

??7Q4'?nn 



130, "MISSING "'"FILE IOE^'^NT IFIER "'"IN TAPE "'''L ABEL. EQ"> 22/04700 

"UATION ", ' 22/04800 

160,"nECLARFD"," LAREL D","IU NOT A","PP£aR "," ", 22704000 



"," 



22705000 
22705100 

2 2/05 ?QQ 



22/05300 
22/05400 
3?705SQ0 



"HIS LOOP"' 22/05600 

164,"C0NSTRUC","T ONLY A"," VAI t ABLE"," IN CUNF","IDENCE P", 22/05700 
"ROfiRAMS "> . , ^ 2 ?70 5fl00 



165, "GO TO ST","AT£MENT ","NOt IN S","AME 00 L","OOP AS |", 
"ABEL "- 



200, "MISSING ", "BUFFER I","0ENTIFIE","R 



» ,« 



22/05900 
22706000 
22/06100 



201, "MORE THA","N 8 BUFF","tHS 0ECL","ARED 



202, "RESERVED"," WORDS M","AY NOT B»,"E USED A","S IOENTI", 

"FIERS ", 
203,"I0ENTIFI","ER L0NG£","R than 8"," CHRS ", " 



22/06200 
22/06300 
2?/q64QQ 



«, 



22/06410 
22/06420 
22/06430 



303, "PATTERN "'"DECLARED"'" MORE TH"."AN ONCE "'" 



22/06440 
"'X140122/06500 
itl4Ql22/06600 



304, "PATTERN ","IN INPUT"," STATEME","NT ALREA","DY OECLA", 2p 06^70^0^ 

"RED ", 22/06800 

3Q5,"UNBEC0aN","IZE0 W0R","U IN INP","UT STATe"'"MENT ", 22/06900 



r< 



9 
10 
11 

jl2 
13 



{14 

,15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 



39 
40 
41 
42 
43 ~ 



45 
(6 

47 
48 
49 
SO 
51 



S2 
53 
J4 

S5 
S6 
57 



306#"INVALIU "*"SUi; IN 'V'OlSPuAY "#"0K PKiNT"*" STATEME"* 
UNI It 



401f"lNvALID "*"DISPLAY "*"0H PRINT"*" MUDIF lE^'^^R "» 

« «^ 

^02#"nlSPLAY "*"QR PRTNT"*" MOniFrF"*^R APPFAR"#'«S TWICF »* 

"* 
500*"INVALID "*"FILL STA"*"TtMENT "," ", 

w fi . fi n , 



22707000 
22''07l00 

.22ZQ.7 2 QQ 



50WM1SSING "#"KITH IN ">"FILL STA"f"TEMENT "*" 
It It • 



22707300 
22707400 
2?707'SOQ 

22707600 
227U7700 
??7U7flnn 



LQCK(FRRMESSri.*ni 



FILL AC2#*] WITH 
i02*"MISSlNa "*"PArTER;v. ","PART IN '^"FILL STA"*"TEMENT "* 



22707900 
22708000 
?27Qflon5 



SOS^^MISSING "#"INTESEH ",«|N FILL "♦•♦TALLY ST^^^ATEMENI ••, 



22708010 
22708100 
227Q8200. 



"»" 



504, ' ♦INVALID ">"FTLL TQ6"."GLE STAT'»>"EM£NT 

"» 
601, "MISSING "♦"Buf'FER P","ART IN R","aTATE 3T", "ATEMENT •», 



602, •♦INVALID ", "INCREMENT*, "T IN «OT»',''AT£ ST AT^'^^'EMENT ", 

••* 
6Q3»'^M ISSTNR ••,"TNrHFM(-N'','^T IN RnT'«,««flTf Sy &1» .^^ i^f hiX w. 



604, "MISSING "*"t OR - I","^ ROTATE"*" STArEME"*"NT 



701, ♦♦MISSING "♦♦♦BUFFER P","aHT iN S","HIFT STa"#"TeMeNT ♦♦* 
702*^'TNVALID "," TNCRF_M£N",'*T IN SHI", "FT ST aTF^^,^^MFNT ♦•, 



703*"MISSiNg ","INCREI^EN"*"T IN ShI"*"FT STATE", "MENT 

W II . 



70«»^^MISSIN6 ",♦♦♦ OR • I'^,"K SHIFT ","STATEHEN",'^T 

II " , 

751, '♦INTO APP","EARS TWI^^,"CE IN RE"f"AD STATE'^, "MENT 



753, "MISSING ", "BUFFER P","AHt IN w","hITE STA","TEMENT "* 
II II . 



.754, ♦♦MISSING ", ♦♦PATTERN "♦♦•PART IN ♦'♦♦♦WRiTE ST^^,"AT£M£NT "* 

« ♦♦ , 
759, ♦♦INVALID ♦♦♦♦♦RFAD MOfi^^,"lFlER » ,» ", 



771, "INVALID "♦"UNIT MiME"^"nONIC "♦" 



"JL." 



772,^^INVALID "♦"SPACE MQ^^^ •♦OlF lER "♦" 



♦♦,,♦♦ 



773^-lNVALID "/"WRITE MQ",>^DlFIER "," 



777^"MISSINS "♦"BUFFER P"^"AKT IN R"^"EA0 STAT"^ 
"EMENT 



"^" 



780*''INVALI0 "♦"SIZE FOW'^LOHING T"#"HRW 

It ♦♦•*• **i 

LOCK(ERRM£SSC2>*3); ' 



FILL AC3^*] WITH 
781^"NUMBER F"^ "QLLOWI NG"^" THRU £X"*"C££0S BU"^ 
-_^ "FFFR STZ"*"F ", 



8Q0*"MISSING "♦"WITH IN ♦♦♦"COMPARE "♦ "ST ATEttEN"^ 

w J ♦' ♦ " " ♦ 

eOlf^^MISSlNG ♦♦♦"BUFFER 0"^'^ri PATTER'', "N PART I", 



22708300 
22708400 

2270850 

22708600 
22708800 
.22 7fl89XU3- 



22709000 

22709100 
22709200 



22709300 
22709400 
227 95^^ 



22709600 

22709700 
2 27Q 9flQQ 



22709900 
22710000 
2271010 



22710200 

22710300 

-22I1Q400. 



22710500 
22710600 
227107011- 



22710800 

22710900 
2271 IQQQ 



22711100 
22711200 
227 U3Q0 



227 U 400 
227U500 
2 2711 600 



22711700 
22711800 

227 U 9 Q 



22712000 
22712100 
2271210 



22712110 
22712200 
22712300 



22712400 
22712500 
2 2718 600 



1^ 



>r 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
IB 



19 
20 



21 
22 



23 

24 



2S 
26 



26 
29 

30 



31 

32 

33 

34 

35 

36 

37" 

38 



39 

40 
41 
42 



43 



45 

46 
47 



«S 
49 
SO 
51 



52 
S3 



54 

55 



56 



"N COVPAH","E STAT, "» 
810*"MISi>ING "^''ERROR MF'S"TtP ON " 



812 
813 



814 



815 



817 



818 
All 



820 



821 
32Z 



823 



850 



860 



"MORE THA" 
"LABEL AP" 



•TEST LAB" 
"IQOP 



"MISSING " 
"MISSTMfl » 



"L 
"INVALID " 



"DUPLICAt" 

"BEL 
" MiSSTKIft " 



"MISSING " 
"AU SE — 



"MISSING " 
"TOGGLF D" 



"INVALID " 
If 



"SU8R0UTI" 
n 

"MlSSTNR » 



"MISSING " 



861, "MISSING " 
"IT STATE" 



"N 64 LA8"#"iLS DECL" 

"> " "* 
"PEARS MO"#"RE THAN " 



"EL APPEA"*"HS IKSID" 

n . fi H . 



"J AFTER "*"LA8EL 



« 



"TPSt MUM"."B£R TN T" 



"TEST N0M"*"6tR 



"E TEST N"*"VMBER IN" 
"« IM TFS","T TALLY** 



INTEGER "/"iN TEST " 



">" 



"THEN IN »f''lF CLAUS" 

H M "* 

"ID NOT F"»"OLLO»» NO" 



"WORD IN "*"IF CLAuS" 
">" !Lg 



"NE DECLA"*"R£0 ThIC" 

"* 

"S1)BRQUTI"."E TnFNTT" 



"PARENTHE"*"iIS IN W" 



"OR INVAL"#"ID INTEG" 
"MENT "I 



"AftED 
"ONCE 



22 

22 

-2Z 



22 

22 

.2Z 



"E OF DO "» 



22 
22 
2Z 



!!E ST LAflF" > 



22 

22 
J2Z 



" TEST LA"* 
"r.LAUSf "» 



22 
22 

-2Z2 

22 

22 
-22 



"TALLY CL"f 



"T 



22 

22 

-22 



22 

22 

.22 



"E 



"E 
"F IL R 



22 
22 

-22. 



'' 22 

22 
Le 22 



"AIT STAT"* 



22 
22 

-22 



"ER IN WA", 



LQCKfFRRMFSSr3.*1^8 



22 
22 
-22 



END FILLERRMESS; 22 

X*************************************ii,*******«*******j,********^^nt*^^m^^22 
REAL PROCEDURE ERRORsE ARChcERRUH ) ; VAllE ERNQRJ INTEGER ERROR; 22. 



BEGIN 

COMMENT ERRORSEARCH RETuHNS THE fOLLOWlNGj 



22 
22 

_22 



[0»l]sO 

[1»1]«0» DESCRIPTION OF THIS EHRCR HAS 
NOT BEEN PRINTED 



•1# DESCHIFTIOn OF THIS EHROR HAS 
ILREAOY BECn printed or INVALID 
ERROii NUMBER (REMAINDER OF 



22 
22 

11 



WORD To BE IGNORED) 
C2J16]50 
EFF Js INDEX INTO ERRORmESS HQIn WHERE 



22 
22 

12 



22 

22 
22 



DESCRIPTION STARTS ' 1 
CCF !• ROW OF ERRORMESS WHERE DESCRIPTION 
m 1,0 C A TCP, ,. • 



22 
22 

22 



LABEL FOUNDROW,xIT; 
INTEGER I*J#k; 



FOR I«*((ERR0KMAX+19) DIV 20)-l STEP -1 UNTIL 00 
IF ABSCERRf'ESSCliiO]) LEQ fcKROR THEN 

IF ABSCERRMESSEI»13333 GEO ERROR THEN 



22 
22 

22 



22 
22 



12700 
12900 
13000. 



13100 
13200 
ill£LO-. 



13400 
13500 



13700 
13800 



14000 
14100 
14200 
14300 
14400 
14500 



14600 
14700 
14800- 



14900 
15000 
l5010..-„. 



15020 
15030 
43040 
15050 
15060 



15080 
15100 

15200- 



15300 

15400 
-I55illl. 



16200 
16300 
164QQ 



16500 
16505 
16510 



16515 
16520 
16525 



16530 
16535 
16540 



16545 

16550 
16555 



16560 
16565 
16570 



16575 

16600 
16700 



16800 
16900 
17000 



1< 



>r 



19 

20 



22 
23 
24 
25 
26 
27 
28 
29 
90 



33 



34 
35 



36 



39 



•2 



*9 
50 



52 

53 



55 
5« 



GO FOINDRQW; 



GQ X I TJ 



FQUNORQWt 

FOR Kl»0 STEP 7 UNTIL 133 DO 
IF f JI*FRRWFSSCT*K1KCCF]»E.RRQR 



22^7100 
22717200 
2?7l73Q0 



ThFIM 



BEGIN 



22717400 
22717500 
2271 76 QQ 



UNLOCK(ERRMESSCI**])i 
ERRMESSCI>K3»»-ABS(J); 



LQCK(ERRMESStI**3)) 

60 xit; 



22717610 
22717615 
2P717620 



FNin; 



XITJ 



ERRQRSEARCHt^J&TCCTCJ& K t CTFl j 



22717625 
22717630 
22717640 



22717700 
22717800 
22717900 



end; 22718000 
X********** ********♦*********♦#*#*****#***♦***** ***^***^#*(i***^k^jk^^^^^^^j^227l8l00 
PR OCEDURE PRINTHERRQRCERROR?; vALUEERRnRJ IMTFGER ERRQR; 2 ?f?f^^00 

22730000 
22730005 
2273 00 10- 



BEGIN 
COMMENT 



PRINTHERROR PHINJS SYNTAX EHRUR 
M FS SAGES , , , IT ALSO SCANS THF ;? n UFiC£ I NPUT 



UNTIL A SEMICOLON' "ELSE" « OR "EnO" IS 
ENCOUNTESEO; 
FORMAT ERRQRFfxT>"ERROft NuMRER " , . A ^ ^ **-"* x aB » a c "X" H * 



EFCERR "»A3#"*"); 
LIST DELCDECMALCERROH)); 

STR E AM PR Q CEDUR E REMOTFRRClRM E SSAfiE(nv ,J T d UFF> I. Ii N E NRf 
ERROR»FIRSTSCAN#eOUNT); 

VALUE error»firstscan#count; 

B£Jllfcl . ^ 



LOCAL TDi; 

di«'Outbuff; dh»di+8; 

nSigtO LIT "NPAR I INE 



SU»LINENRI Ton"OII DSt*8 OEC; 

sii»TDr; Dn«TDi; 

7fiF sc»"o" THEN sn»sun; 



8CIF SC=" " THEN JUMP QLT 
DSI»14 LIT " ERHOR NUMBER 
Sl8aL0C error; (jSt83 DEC; 



ELiJE 



DSJsCHR); 



DSi*3 LIT " • "i 
Sn»FIRSTSCAN; OSti 



'COUNT CHRJ 



FNni 



REAL e; 

LABEL Explain; 



IF ERRORS «»ERRORS+l«l THEN 
BEGIN 
F I LLERRORME SS( E RRME SS ) / 



end; 



eRrtog»»true; 
lasterror»=-q; 



then 



IF CSWlTCtt»C 
BEGIN 
IF NUT BLCE«»ERRQRSEARCH(ERROR?)f CHI] 



THEN 



WRITE(TWX); 

clear(cutbuffermO); 
remoterrormessage(outbuffer^test*erhor»firstscan» 



A8SccounT)+real(Count»o)); 

WRlTECT«X,iO»OUT8UFr£RC*3); 

IF not lst then go explain; 



22730015 
22730020 
22740000 - 



22741000 
22742000 
2 27! a 0000 



22760000 
22770000 
22780000 



22790000 
22800000 
22R10000 



22820000 
22830000 
22840000 



22Qi30000 
22860000 
22870000 



22880000 
22890000 
22 90 0000 



229UIOO0 
22902000 
?291QOOO 



22920000 
22920100 
2292Q15Q 



22920200 
2292Q300 
2?92Q400 



229 30000 
22940000 
22y<HO00 



22942000 
22950000 
22960000 



22970000 
22980000 
2299100Q 



■T<^ 



57> 



• • 



h 



9 
10 
11 
12 



13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 



37 
38 



39 

40 
41 
42 



43 
I «4 ' 

45 

46 
I 47 

48 

49 

SO 

51 

S2 

53 

S4 



55 

56 



END ELSE 

IF NOT LST THEN 

IF NUT LTNFRRQR THFN 



BEGIN 



22S>90000 
23000000 
2301000U.. 



IF NOT HTOG THEN 
REflTN ^ 



DATIME/ 
HTOUSsTHUE; 



end; 

CtEA«C0UT8UFrER*i5); 
llNFtRORtnTRUFI 



WRITECLFILE); 

M0VE(9,INPuT8UFFeg#0uTBUFFERC2]); 

nUTflUFFE.R[l?UrU£CMAHTEST)i 



end; 



WRI IE t iriiE t DftL 3 * 15» OUTBuFrER C * J ) 7 



WRI TE C QUTBUFFER r * 3 ^ERRORf *DEL ) J 



ni<* I I. V MU I BUT r >.nL - J y cnnuni y wet- j / ■ 

CHAR ACTERMO VE C ABS C COUNT )+RtAL(CDUNT*0)»FIRST SCAN* 
C0READCRC0UTBUFFESC3])); 

IF L AST e RR QP NEQ TME N 



aUTBUFFERt 1 1 3 l*0ECMAu( AaS(LAaTERROR) ); 
WRlTE<LFlLErOBL3#t5#QUT0UfFERt*3); 
LAST£RRQRI«TESTl 



IF CSWITCH NEtt THEN 
E»«ER«ORSE ARCH (ERROR); 
XXPL A I NI 



IF NOT 8L<E),tltn THEN 
BESIN 
wRTTrfnuTRiirFFRt*3.FF*nrL}; 



23020000 
23020100 
- P3Q20200 - 
23020300 
23020400 
23 02050 - 
23020600 
23030000 
23Q41Q0 Q0 

23050000 

23060000 

-ZJXJIQOOQ.,.,, 

23080000 

23090000 

23110000 
23120000 
.-2 3l 20 lQiL.. 
23120200 
23140000 
2 31401 QO... 

23140150 
23U0200 

_Xil.Ai}2i0- 



nn I I r. I. mil nyr r c n i. n j » n r » itf i-, j j ^______ 

MOVE(6,ERRMESS[E.CCF]#E.CFF]+l],QUTBuFFER[l3); 
IF UST OR CSWITCH NEU THEN 

hRlTE(LFlLECDBL]M5*0UTEjUFF£HL*n; 



23140220 

23140300 

.23140400 



END; 



If CSWiTCHsO THEN 

WRlTE(Tl«X#10'0UTaUFFERC*3); 



23140500 

23140550 
23140600 



IF ERROR NEC 160 THEN 

WHILE SPECIALCHR nEQ ••;" CO SCAN; 

LASTScANtuFIRSTSCAN; 



end; 

DEFINE PRlNTERRQRCPRlNTERRORn 



23140700 
23140800 

23149000 

XU0123170000 

23171000 



X* 



Begin printheRrohcprinterro«i); go xit; end*^ 
************************ *************** *********** 

st ream PROCEDURE DC TADES(N* A»B ) i VALUE N»A*B; 



23180000 
*********«*«r**************23l90000 

23200000 



23210000 



BEGIN 
SII»LOC 

di«»b; 



******* 4************2 32 11 000 
23212000 



sii«si*n; ncskip 3 «8); 



NCDs««3 reset; 
end; 



3(IF iJB THEN 
SKIP SB)j; 



OS»*SET ELbE DS»*RESET; 



23213000 
23214000 
23215000 



%** * * *************************** 



23216000 
23217000 
23219Q0Q 



*********************************************** ************ ***^****23220000 
PROCEDURE 0€8UGOUTCI*S*A); VALUE I^S^A; REAL 1} INTEGER 5#A; 23221000 
Rrntw 23222QQQ 



COMMENT PRODUCES DEBUGGING OUTPUT - I 
INSTRUCTION WHICH IS PLACED IN 
REl ADDR a ; 



IS THE 
SEGMENT S« 



REAL junk; 

STREAM PROCEDURE BLNK(A); 
. ICS IN 



23222005 
23222010 
2 32 2 2Q15 



23223000 
23223100 
i3i232QQ 



1^ 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



# • 



LOCAL j; LABEL XIT; 

dij=a; oi>»=8 fill; Dn=Luc j; si!=a; 

flC i r S C = " " TH Ei V , S ,I {=a i t l £ i SE J UMP OUT 



TU X I T); 



JLLLl 



JI»SI; SIlaLOC 

ost»/ fill; 



j; Ditsj; Di]soi4i; 



23223300 
2 3 ^ 2 3 ^ -0- 



232ii3500 
23223600 

g32?3yno 



CLEARCOUTBUFFER^ibj; 

EDlT(l*I*OUTaUFFERC 1 3 * 0# 1 # JuNK* JONK, 0) ; 
HLNK(m.lTbiJFFERC iJ); ~ 



2322<4000 
»140«23225000 
a;i40a232^5l00 



7 
8 
9 
10 
11 
12 
13 
14 
15 

_ 

19 
20 
21 



0CTADES(3,S'II»CD«EA0DR(0UT6urFE 
0CTA0ESC3f A»BL(I) OR iLCS^^OOOOO 
WRITFCLFH.,ECDfiL3*15>DUTRUFFERC»JI 



Rt 03)); 

" ) ) ; 

XL _^ 



XH0423226000 

23227000 

23228000 



END; 



X****************************** ********************** ************* 
PRQCEpgRE EMiTLTTERALfLITERAL? ; V AI ^U^ l i TEHA L ; HEAL L ITE RAL ; 



23229000 
*******23229500 
?323Q0nn 



COMMENT 



BEGIN 



PLACES LITERAL 

A BY one; 



INTO CODEU] AND INCREMENTS 



LABEL XIT; 

INTEGER junk; 

IF A GEQ S EGSI ZK 



23230005 
23230010 

?^250nno- 



ThE N 



23260000 

23261000 

■ 2 3261 100 



BEGIN 

PRINTHERRORCSOO; 
GO EXIT; 



23261200 
23261300 
2326laOQ 



22 
23 
24 



END 
ELSE 

codeca3;sliteral; 



232 
232 
232 



61500 
61600 
/OOOO 



25 
26 



27 
28 



if oebugn then 

debugoutcliteral»s,a); 
Ai»iA-t-i; ^__ 



232 

232 

.212 



71000 
72000 
60000 



29 

30 
31 ~ 
32 
33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



XIT; end; 

X******************* 



********************************************* 



BO OLEAN PROCED URE RES^RDCHK; 



23'* 
*******234 

UA 



00000 
OOlOO 
00200 



BEGIN 
COMMENT 



RETURNS TRUE IF WORD 
NOT A RESFRVFD HORn; 



IN TESTBUFFeR IS 



IF WRD(C0M 

PRINT 

E LSF 



23« 
234 
234 



00300 
00305 
00 310 



parebuff*nrcfmqd) 

HERR0R(2O2) 



GEQ THEN 



234 

234 

.221 



00400 
00600 

ooaoo 



IF WRD(RES 
PRINT 



ERVED#NR0FRESERV£D) 
HCRRQR(202) 



GEQ THEN 



234 
234 



00900 
01100 
01300 



IF COUNT G 

PRINT 

ELS E RESWH 



TR a THEN 
HEHR0RC203) 

dc hk:=true ; 



234 

234 

231 



01400 
01600 
01800 



46 
47 
•8 
49 
50 
51 
52 
53 
54 
55 
56 



end; 



X*************** ******* # * * * * * * ** ****#***»********* * * ************* 

DE^^lNE WHATBUFFERijWMICHBUFrER (FALSE 3iJ 



23* 
*******234 

g34 



G1900 
1 0000 
10100 



X ************************************** *******' 

INTEGER procedure WHI CHfclUFFER( TQG ); VALUE TPG; 

, BEGIN ^ 



r****************** 

BOOLEAN tog; 



*******23410200 
23420000 
23^30000 



COMMENT WHICHBUFFER RETURNS * BuFFER NUMBER 
TRUE* THE NUMBER RETURNED IS THAT 
BUFFER FHR READS WITH PATTERN (l.F. 



. IF TOG IS 

F THE DEFAULT 

M IF A STATCMENT 



23* 
^t4 

Ml 



30005 
30010 
MlliiL 



SUCH AS "READ MTA PATTERN a00("Z")" 
IT IS NECESSARY TO ASSIGN A BUFFER 
T HE I/O, RUFFFR nNp fPATBUFF) CAN 



IS ENCOUNTERED* 
FOR PERFORMING 
nUT HF USpP, SJNCI 



234 

234 
?34 



30020 
30025 
300 3-0- 



IT HiLL BE USED TO HSLO'THE COMPARI 
IF TOG IS FALSE* THE ROUTINE SCANS 
AND RETURNS THE RtlFrSR INPFX OF THF 



SON PATTERN), 
THE SOURCE INPUT 
BUFFER TDENT.IFIER 



234 

23* 
?3* 



30035 
30040 
30,0*5 



J? 



• • 



FOUND there:; 



>r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 



16 
17 
IB 



19 
20 



21 
22 



23 
24 
2S 
26 



27 
28 



29 
30 



31 
32 
33 
34 
95 
36 



37 
38 



39 
40 
41 
42 
43 
44 
45 
46 
47 

te 



«9 
50 



El 

a 

54 



55 
56 



INTFCiFK R? 



FORMAT BF(X2»A3#«-B''); 

LABEL XIT/tL; 

C0MMENT»«THIS ROUTINE ASSUmLS THaT THE VARIABLE ttSlZg" CONTAINS 



THE LENGTH OF 
SIZE« = MIN(SIZEM02C); 
IF TOG THEN 



THE SUBJECT BUFFEH IN WOKDSf 



IF RBUFr«tMPT* THEN 
BEGIN 
IF RRUFFlwNFXTBUFFaMAXBUFFS TH£N PR INTEHRQR t 20 m 



GO tl; 
END 
ELSE 



BEGIN 

whichbufferisrbuff; 

■ BUFFFRSrn*RBtiFFT,rSFlteMAX(t>IZE<BUFFFRSCn,SBtiFF3 . cSFl); 



GO XITJ 

END 



ELSE 



scan; 

IF COUNT LeQ THEN PRlNTERR0R{200 ) ELSE 

IF Bl*WHATW0RD(TESTBUFFERiaNAMEa[03,NExrRlJFF) LSS 



BEGIN 

IF NEXTBUFFsMAXBUFFS THEN PR I NTERRORC ;?0l) Ei,SE 
-liL RESWRDCHK THFN ^ 



THEN 



TL» 



M0VE(1*TESTbUFFER»BNAmESCnExTbUFF3)J 
BfNEXTBUFFl 



IF 



LST THEN 

BEGIN 

0CTADES(3*NEXTBUFF,BL(CQREAUDR( JUNKn (JH bLC i^Sooooo*^ ) ) ; 

WRITE(LFILE[0BL3,BF*JUNtt)i 

end; 

NFXTHUFr>«NrXTRI!FF4.i; _^_ 



end; 



BUFFERS[0#B].CSFJJ=MAX(SlZE't^UFFERS[0*83,[SF3i; 

whtchbufffr<=r; __________^___ 



23^30050 
23430055 
?3440000- 



234'»1000 
23450000 
23460000 



23470000 

23470050 

-2JAZ01M- 



23470200 
23470300 
2347040 



23470450 
23470600 



23470800 
23470900 
2347Q95XL 



23471000 

23471100 

.2J4JJL2.QI1_ 



23460000 
23490000 
2350QQOQ 



23510000 
23520000 

2 352X0X10- 



23530000 

23531000 
235400Q0 



235<«1000 
23b42000 
23543q^. 



23544000 
23545000 
?:^5s onQn 



23560000 
23570000 
?35BQ0nn. 



XITJ end; 23590000 

X********************************** **************** **************#******23600000 
P ROC EDURE STARTASEGMENT(SEGMENT»TOG); 23610Q0Q 



VALUE SeGMENT'TOG; INTEGER SEGMENT; BQU^EaN TOG; 

BEGIN 

COMMENT STARTS A NE^ CODE SEGMENT. TUG IS TrUe IF 



23610100 
23620000 
236^0005 



THE NEW SEGMENT IS A SUBROUTINE SEGMENT ■ 
(IT IS DIALED INTO THE SIGN BIT OF THE 
SEGMENT DICTIONARY ENTRY FOR THE SEGMENT)! 



LABEL XIT; 

FORMAT SCGF(Xe6, "START 



23620010 
23620015 
23620020 



OF Segment •sio("*")»i3); 



IF S NEO then 
PRINTERR0R(900) ELSE 
ir NOT TOG THEN 



23630000 
23640000 
23650000 



EMlTLITERALCeiiSEGMENTCCTFJ^; 
SAVEAta^A; AlsU; 
SlaSEGMENT; 



23660000 
23670000 
23671000 



XlTf 



IF LSt THIN 

WRITE(LFILE[0BL3»SEGF#S); 
ENO; 



23680000 

23690000 
23710000 



23720000 
23730000 

83740000 



1< 



2 

3 
4 
5 
6 
7 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 * 

21 

22 

23 ' 

24 

26 

26 ( 

27 

28 

29 < 

30 

31 

32 ( 

33 

34 

35 4 

36 

37 

38 \ 

39 

40 

41 ( 

42 



• 
• 



45 

46 

47 

48 

49 

50 I 

51 

52 

53 

54 

55 

56 ' 



11 



>r 



QOnrt-niiDt- c-TMTCijcr/'urhiT r t i\ /■■ \ • \i at \ i c t n <- ■ an n i[r»k]Tf-ir« '^■^Tt./.nnn 



PROCEDURE FINISHSECJMENTCTUG); 
BEG IN , . 



VALUE tqg; boolean tog; 



23760000 



COMMENT FINISHES A SEGMENT. IF TOG IS TRUE* A 
SURRaUTINIE SFGMENT IS RFTNfi FINISHFn. 



237/0005 
23770010 
2 377Q Q15 



4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 

ri5_ 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

10 

31 " 

12 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



OTH 
FIN 

-BUG 



ERWISE* A 00 LLlQP SlgHENT IS BEING 
ISHEO* A,MD A BKANCh BaCK fU ThE 

t segm£,n,t is, l^llXO i . ___„ 



2377U020 
23770025 
2377Q030 



LABEL XITJ 
FORMAT ESEQF 



CX79* "SEGMENT «M 3*" IS^^H'" LONG* ••# 
"NFXT SEGMENT 0")) 



23780000 
23790000 
23600000 



IF S=0 THEN PKINTERRUHC901) ELSE 
IF NOT TOG THEN 



23810000 
23820000 
23821QQ Q 



EMITLITERALC 
SEGDICTCS]I» 

IF LST THE N 



8&SAV£AtCTSCF3); 
SEGDlCTtS]&AtCTSFUREAL(TQG)Clt47»U; 



23830000 
23840000 
2 38800 00, 



WRITECLFILEC 
LSEGJ»MAXCLS 
AI'SAVEa; 



DUL3*ESEGK»SiMM); 
EG#A); 



238 
239 



90000 
01000 



2391 000 - 



St«0* 
XIT» ENDI 

xx** * ****** *********** 



******* tllHl*******************^, it* h**** it* ******* 



INTEGER PROCEDURE WWATPATTtRNC TYlfE ) > VALUE TYPE/ INTEGER TYPE; 
BEGIN 
COMMENT WHATPATTFRN* TnGETHEH WUH PATTEHNGlriNERATOR » 



239 
239 

****2a2i 



20000 

30000 

0000 



HANDLE PAT 
COMPILES* 
RESEftVen W 



242 
242 
24230005 



"iOOOO 
30000 
3000! 



TERN NAMES aNU DESCRIPTIONS IN THE 

WHATPATTEiN IS CALLED WHEN THE 
ORn "PATTERN'' IS ENnnuNTEHFn. IT 



242 
242 
242 



30010 
3001S 
30020 



SCANS THE NEXT HEM FROM THE SOURCE iNPUT AND 
TAKES ACTION AS FOLLOwSl 



242 

242 

242 



30025 
30030 
30035 



1) IF THE ITEM SCANNED IS A NUMfBER* AND 
TYPE IS LSS 0* WHATPATTERN HETURNS 
THE NUM8FR WITH A NEGATIVE SIGNi. I£. 



242 

242 

_2A1 



30040 
30045 
30050 



TYPE GEQ 0# A SYNTAX 
IS GENERATED. 



ERROR MtSSAGE 



242 
242 



30055 
30060 
30 06 5 



2) IF THE ITEM SCANNED IS AN IDENTIFIER, 

A CHECK IS MADE TO DETERMINE IF 
THE IDENTIFIER HAS BEEN PREVIOUSLY 



242 

242 

Ml 



30070 
3007 5 
30080 



ASSIGNED TO A 
RETURNS THE 1 
THE PATTERN A 



PATTERN, IF 
NTERNAL PATTE 
NQ EXITS* IF 



aO* WHATPATTERN 
RN NUMBER OF 
THE IDENTIFIER 



242 
242 



30085 
30090 



24 2 3 0095 



HAS NOT BEEN 
PNAMESENEXTSA 
T S CAJLE D TO 



SEEN BEFORE* 
TTERN3 AND PA 

SYNT AX C Wr C K 



IT IS ENTEREO INTO 
TTERnGENERATOR 
THE nESrHlPTtON 



24 a 
242 
242 



30100 
30105 
30UQ 



46 

»7 
48 



OF THE PATTER 
TAPE LABEL Pa 
nrSCRlPTlUN I 



N (UNLESS THE 
TTERN)f THE 

s Placed \h j 



PATTERN IS A 
OEBLaNKEO PATTERN 
UNKBuFFER. IF 



242 
242 

J2ja 



30115 
30120 
.30125 



•9 
50 
51 
52 
53 
54 
55 
56 



SUFFICIENT SP 
DEBLANKEO DES 
PP Is. UPDATED 



ACE REMAINS 
CRIPTION IS 
TO POINT TO 



IN P0ESCC*3* THE 
MOVED THERE AND 
THE NEXT AVAILABLE 



242 
242 



30130 
30135 
3014 



WORD In pdesc 
WRITTEN TO DI 
STARTED. 



[*3, OTHERS 
SK AND A NEW 



SE* PDESCt*] IS 

QLSCRIPTION RECORD 



242 
242 
242 



30145 
30150 
301 55 



3) IF A NUMBER FOLLOWED BY A 
, THE PATTE«N IS GIVEN THE 



"C" JS FOUND 
NAME "OOD..BBB" 



242 
242 
242 



30160 
30165 
9Qi70 



JE? 



>r 



7 
8 
9 
10 
11 
12 
13 



15 
16 
17 
18 
19 
20 
21 



24 

J6 



26 
27 



28 
29 
30 

31 ~ 

32 

33 



34 
35 



36 

37" 

38 



42 
43 ~ 



45 
46 
47 
•8 



49 
50 



52 



55 
56 



WHERE DDDt.. lb 
OF NEXTPATTERN, 
IN ? ABnVF. LA- 



DFFINE 



IS Incremented by 
OF THE routine; 

KNlOUllM«TYPF»Vtr 



THE ALPHA HLPRESENT AT I ON 
ACTIQK lb THEN TAKEN AS 
RflTH ? ANO jy NEXTPATTFRN 



ONE PRIOR TO EXITING 



24230175 
2^230180 



BOOLEAN SAVEPATTEHN#NQPATTERi\'LTGQ; 

LABEL XIT^WRAP^NEhSEG; 

LAREL LABEiFJX; 



242 30190 
24230195 
24240000 



LABEL DUPGtJOFl 
REAL Tl»T2,T3i 
INTFGER CHRS.STZf.rTi 



24260000 
24270000 
24270100- 



REAL MFID,FID; IDO NOT 
FORMAT PFCX2*A3»"-P"); 



DECLARE ANY VARIABLES BETWEEN THESE 



X140124270200 
X140124270300 

*i404P427innn 



scan; 

IF KNOWN 
- flFGTN 



24230000 
24290000 
24300000 



THEN 



IF ( whatpattermswhatwqrdc TEST Buffer, PNAMEsco J, 

NEXTPATTERN)) LSS THEN 
B EGIN 



24310000 
24320000 
24330000 



WHATPATTERNI»Oi 
PRINTEfiR0R(10O)J 



2434OO00 
24350000 
243600QQ.. 



T i»»counT;T2» = FIRSTS can; T3« = CHD; 
scan; 

IF SPFCTALCHRg'V THFN r,U nuPGUar 



24370000 
24330000 
P439000O- 



ELSF- 



end else 

BEGIN 

IF CQuNlTaO 



ELSE 

IF savepatterniscount 



THEly IF yiPFCTAlCHR NFQ "C" THFKi PR T MTrwRHRt lOH 



*140124390100 

%14012439020G 
|?4390^QO 

24^00000 

24410000 
Ft SE 24420Q00 



gth e then 



24421000 
24430000 
24440000- 



IF WHATPATTERN»»WHATW0RD{T£i>T8UFFEH*PNAMESt0]> NEXTPATTERN) 24450000 
GEO THEN *140l24460000 

BEGIN . !K14012446010Q 



dupqoof* 



Ti j=count;t2:=firstscan;t3 J 
scan; 

IF SPFCIAI CHRs*V" THEN 



:Crd; 



X140124460200 
X140124460300 
a;1 40 l 2446040 Q 



BEGIN 

IF CH0»T3 



THEN Begin C0UNTt8ri;FI'^STScANl»T2nND; 



printerrqr(303); 
end; 
lastscaniafirstscan; 



X140124460S00 
X140124460600 
X140124460700 



IF 



GO xit; 

ENDI 
W0R0O27 



«140124460800 
il40l24460900 
X140124461000 



AND C0UNTg9 THEN 



BEGIN 
MFlOli 

scan; 



XI 4 01 24 46 I 100 

X14012««61200 

34470000 



"ONLINE 



FlD»«"TtSTAPE"; 



IF 



THEN 



SPECIALCHR«"s« 
BEGIN 

scan; la$tscani»firstscan; 



24480000 
24480050 
24480 1 00 



IF 
END 



ETJ=FILEIDENTlFiEH(FlRSTSCAN,LASTSCAN*MFiD)50 

printerrorcuo); 



24480200 
24460300 
24480400 



THEN 



ELSE lastscani^firstscan; 

if mot TAPEOUATED THEN 
M0Vg(2,><FlD#H£A0E8C2ali; 



24480500 

24480600 
24480700 



24«e0fl00 
24481000 
24411100 



n 
2 

3 

4 

5 
6 

7 
8 
9 
10 



52 

53' 

54 

55 

5«l 

57 



h- 



LTQG8 = TRUE^' 

M0VECl*C0MPARF.BUFF[2 7J*TtSTBUFFdR). 

EN D E; l 9 £ 



*HESTOH£ "TAPELABE" 



24bl0000 
24bl0l00 
2 4> 20QQJL 



IF NOT ReSWROCHK THEN GQ XIT; 

IF NEXTPATTERN»MAXPATTERNS THEN PR INTERHQR C103) 

MOVFf t«TFSTHtlFFFR>PNAMFSrNg.XTPATTFRM U 



ELSE 



24521000 

24530000 
2^540000 



WHATPATTERNJ: 
IF LTOg THEN 
BEGIN 



NEXTPATTEKNj 



CHRSI*-??; SlZE«a9; 

ACCUMULATOR* «C0REAU0R(JUNKBuFFERC9];i 

fiO WRAP? - -__ 



24550000 
24560000 
24570000- 



24570100 
24570200 



-24 



LMU3- 



10 

11 

12 

13" 

14 

(IS 
16 
17 
IB 



19 

20 

21 

22 

23 

24 

25 

2« 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 

«4 

45 

46 

«7 

48 

49 

50 

51 

52 

53 

34 

35 

56 



END 

scan; 

.!£ C OUNT 



ELSE 



GES THF:n if SPfc; clALChR i\ Fa "(" THEN 



24570400 

24580000 

-24590000 



PRlNTERRORCiCDi 

end; 

ACC UMULATnRi»CnREADnR(JHNKBnFFtR^; 



CLEAR(JUNKBUFFER» 

JUNKBUFFERC59]»=R 

-IF SPECIALCHRi^C 



IF SI2EI»((CWRSI« 
PRINTESR0RC105 
SAVlNiGl»TRUFl 



(60)); 

LAKNQT FALSE); 
Then I, ASTaCAN<=FlR bTi iCAN 



24591000 

24600000 

-2-4 620aX)g 



FL.SE 



TESTBUFFERtO])+7) 

}; 



DIV 8 GTR 1021 THEN 



246J0000 
24640000 
246410iX0- 



24650000 
24660000 
<?466Vn00 



scan; 
IF nqpattern»»spe 
IF savepattern 



cialchr keq "C" then 

THEN 



printerror(io6) else 

ELSE 

BEGIN 



24670000 
24680000 
24690000. 



24700000 
24710000 
2473Q QQ Q 



IF patternsene 
printerrorcerr 

IF CHRS=sQ THFN 



ratgr(chks#-i) then 
OR); 



24750000 
24760000 
2476 1Q0-Q- 



savingi»false; 
end; 

IF NOT NOffATTFRN THFN 



24770000 
24780000 

?479Qnno 



WRAP: 



BEGIN 

IF NOT SAVEPATTERN THEN 



248U0000 
24810000 
246200QQ 



BEGIN 

PNAMEStNEXT 
IF N E XTP 



PATTERN] 1« 
AT TERN LSS 



IQ TH E N 



0&0ECMAL(NEXTPATT£Kn)[1:4j:5]&" "'ibm^ti^ ELSE 
0&DECMALCNEXTPATTLNN)[lJJ7:ilJ&" •'C12S4216]; 
WHATPATTLRN;=NEXTPATTtRN; .^_ 



24830000 
24840000 
2465QnQn 



24860000 
24870000 
2 48 tiQQ0Q 



end; 



IF LTD 



G THEN 
IN £T»w0; 



GO LABELFIXi END; 



NEWSEGt 



IF ACCUMULATOR. CCF] GTR COKE ADOH ( jgNKBUFFERC 29] ) 

PRiNTERRORCn?) ELSE 
IF PP.[FF]=E^^PTY THEN ^__ 



24890000 
24915100 
24915200 



THEN 



24916000 
24917000 
24918000 



BEGIN 



PATT£RNSiO«NEXlPATTERN3r«CHWS&SEGf^OtClf3& 



SIZECCTSFJ; 

MQVE(30*JU(SK8UFFER'PDESC)> 

PP» s( ACCUMULATOR. [CF ] -CORE ADDR(JUNKBUFFLR) 



24918500 
24919000 
24920000 



24921000 

24922000 
24923000 



^- 



♦ n&SEGNUCCTF]; 
SEGNOlvSEGNO+i; 
END E1„SE 



24924000 
24924500 
24925000 



>T 



IS 
16 
17 
18 
19 
20 
21 



IF ET:sACCUMULATOH,[CFJ-COREADDH{ juNKBUFFEk)+1 



gtr 29-pp.ccfj thf;n 



BEQIN 



WHlTE{COeFlLt*iO*PDESCC*3J> 

PPis3"77f7777777»} 

fiQ hiFlSSFGI 



24926000 
24927000 
2492a00Q-- 



24V28500 

2ft929000 

-24930000- 



ENQ ELSE 
BEGIN 

MUVECET* JUNKdUFFEH»POLSCLPPf LCFJ] ); 



249:^1000 
24932000 
249 3350 



LABELFIX: 



PATT£RNSC0'N£XTPATTERN3l«CHRS<iPPtfTn 
&PPll9»43153&SlZg[CTSF3i 



24933600 
24935000 
2493 5100 



pp:rPP+ET; 



IF L ST 



end; 

TH FN 



24936000 

24937000 

.24990000 



BEGIN 

0CTADES(3*MEXTPATTERN#C0READDR(Et)); 
WRlTECLFTLErDBt.3>PFfET.[ni7 3)> 



25000000 
25001000 
25002000 



22 
23 
24 
26 
26 
27 



26 
29 
M) 

31 
32 
33 
34 
35 
36 



37 
38 



40 

41 

42 

43" 

44 

4S 



46 

47 
48 

49 
50 
51 

52 



53 
S4 



55 
56 , 



end; 

NEXTPATTERN>=NLXTPATTERN+li 
FNO EISF 



IF TYPE USS THEN WHATPATTERN »»-CHHS 

ELSE 

PR INTER Rn RClOft ); 



25003000 
25004000 
25030000 



25040000 
25050000 
25Q6Q000 



end; 2501^0000 

xiT: savingj=false; end; 25050000 

X**** ******** ****** if *i,i,**i, i ,i ,* -ki ,i , *i,* ** * ***** * * * *i,**i,*i,i,*i,i,**i,***i,**i,*^*i,*, 2 50f i^\^ Q Q 



DEFINE 

EMITCEMIT1#EMIT2#EMIT3#EMIT4)« 
EMITLlTERAL(EMlTl&EMlT9CCTSCF3Jt£MtT3tCTF]&EMlT4[U47»l])»; 



25082000 
25083000 
250 64Q QQ 



%*********************•**•*****•** *llc*ir ****** *«********ilc*****************25090000 

REAL PROCEDURE wHATLABELC KEY ) ; VALUE KEY; IMEGEK KEY; 25IOOOOO 
BEGIN 251 01000 



COMMENT IT KEY»0* UABEL IDENTIFiER OCCURS IN A 

♦•qO TO" STATEMENT. IF THJS IS THE Fl^ST 
OCCURANGE of the label IDENTIFIER, IT IS PLACED 



'IN LNAMeSTNEXTLABEl] AND A NEkv LABF.Li>C*] ENTRY 
IS INITIALIZED FOR THE LABEL* THE VALUE RETURNED 
IS 3"7777777777'*. THIS IS EMIJED INTO THE CODE 



25101005 
25101010 
25101015 



STREAM BY THE CALLING ROUTINE C «ST ATEMEnT** ) AND 
MARKS THE FIRST OCCURANCE QF THE LABEL. IF THIS 
IS NOT THE FIRST OCCURANCE QF THE LABEL# BUT ITS 



25101020 
25101025 
25 I 01 Q 3Q 



LOCATION IS AS YET UNKNOWN* THE LOW ORDER 30 BITS 
Of THE LABELSC*] ENTRY KUr THE LABEL IS RETURNED, 
THE LABELSC*] ENTRY IS THEN UPOATfTO TO POINT TD 



25101035 
25101040 
25101045 



THE CURRENT SEGMENT AND ReL ADDRESS. IN THIS 
WAY, THOSE BRANCHES TO THE LABEL WHICH OCCUR PRIOR 
TO THE LABEL ITSELF ARE LINKED TOGETHER WITH THE 



25IOI05O 
25101055 
25101Q60 



25101065 
25101070 
25101075 



LABELSC*] EivlTRY POINTING TO THE LAST SUCH BrtANCH, 25101080 

IF "LEVELCOUNT" IS nQN-^ERU IN EITHER OF THE ABOVE CASES' 25101085 
A NOQP (Q) IS EMiTEDt THIS IS NECESSARY TD PROVIDE 25101090 



SUFFICIENT SPACE FOR A JUMP OUT INSTHUCtION IF ONE 
IS REOUIREDi IF THE LOCATION OF THE LABEL IS KNOWN* 
A BRANCH INSTRUCTION TO THAT LOCATION IS RETURNED BY 



THE ROUTINE. 

IF KEYal* THE RESERVED WURp "LABEL" HAS JUST OcCURED 



25101095 
25101JO0 
2 5 t o t 105 



25101U0 
25101115 
25101120 



AT THE BEGINNING OF A STATEMENT. IF THIS IS THE FIRST 
OCCURANCE OF THE IDENTIFIER* A NEW LABELSC*3 ENTRY 
IS eUtLT. IF THIS IS NOT THE FIRST UCCURANCE OF THE 



25101125 
25101130 



IDENTIFIER* THE LABELSC*J EMkY FUR THE LABEL Ii» UPDATED 
TO INDICATE THAT THE LMbtL HAS BEEN FOUND; 



I NT EG ER U J 



25101H0 
25101145 
2 5 1 U2 000 



LABEL 
SCANJ 
CASE K E Y 



xn; 



M_ 



251Q4000 
25105000 
25106000 



BEGIN 

BEGIN 
IF W0Rnff.40 



THEN, SCANi,. I'VTn'V 



25107000 
25107100 
2 51 0BO00 



IF WORO«TST THEN 

ir NOTCCONF OR LIBONLY) THEN PRlNTHERRO«C l64 ) 
. IF LFVFLftQUNTsQ TMfW KHATLABFLtWIg 



ELSE 



25109000 
25109050 
?'i lQ9inn 



12 
13 



|15 
16 



17 
18 



ELSE 
ELSE 
BEGIN 



PRINTHERR0R(814) 



IF COUNT LEQ THEN PR INTeBROR ( 16 l ) ; 

IF LI"WRO(LNAMEStOl,NEXTLABELJ GEO 

IF NTll»L A8 gL S a3 L SS THEN 



25109200 
25109300 
?5U00fl0 



THEN 



25111000 
25117000 



BEGIN 

IF NT2l»LEVELCaUNT-NTl. [18J9J 
PRTNTERRURC165) ELSE 



LSS THEN 



25118100 
25118200 
25116300 



19 
20 



IF NT2 NEQ THEN EMITC lO*NT2*0# I J> 
WHATLABELl«'e&NTlE27t3»l53 

XMD . —. : ^ 



25118400 
25119000 
251 1 9100 



22 
23 

24 



ELSE 

BEGIN 
LL LEVEL C Q UNT 



GTR THEN FM r TL I TFR AL ( ) ; 



25120000 
25121000 
25UUQQ 



2S 
26 



27 
28 
29 

30 



WHATLABEL«5CNTl.C27}2l3)&LEVELC0UNTtCTSFj; 
LABELSCL3««A«StCTf3«M|N(NTl,tSFJ»LEVELCOUNT)lCTSF3; 

END ^^_____________^_^____________ 



25122000 
25123000 
25124QQ0 



ELSE 

BEGIN 

IF L EVE I C QUNT 



GTR OTHEN EMlTLlTERALCO?> 



25125000 
25280000 
2'>26lOQn 



31 
32 
33 



IF NEXfLABELsMAXLABEiS THEN PRINTERR0R(ei2 ) ELSE 
WHiATLA0EL«'»3"7r77r777 77'*&L«:VELCOUNT:CTSF]i 
LARFI SrNFXn ARF11l«A<tSf CTFJ&n rVfir'niiNT ifr.TSP-H 



25290000 
25300000 
25310000 



34 
3S 
36 



junkbj=Resmrdchk; 

MOVEC WTEST BUFFER* LN AMES [NEXTL ABEL J); 
NEXTLABELtsNEXTLABEL-t-i; 



25311000 
25320000 
2 533O Q Q 



37 
38 
39 



end; 
end; 
end; 



25340000 
25341000 
25341100 



40 
41 
42 



IF L«=WRD(LNAMES[0],NEXTLABEL) GEG THEN 

BEGIN 
IF NTl t'LA fl EL StL l LSS Q TH t.N PN iNTf , RHQRCe U ? ELSE 



25350000 
25360000 
2 5370000 



43 



IF NT2l*NTiaSF3 LSS LEVELCQUNT THEN 

PRlNlERRtRf 163) ELSE 
LABELS! LI H»«Nt 1* C A&S£3lt42t 61) tCTHr3&NT2L 1^119193; 



25380000 
25381000 
«5 382000 



46 
47 
18 
49 

50 
51 



END 
ELSE 
BUx 



lU- 



25390000 
25400000 
254 1 0000 



IF COUNT LEQ THEN PHINTERRQRC 161) ; 

IF NeXTLABEL»MAXLA8ELS THEN- PRINTERROR ( 8 12) ELSE 

LABEI StNEXTLABEL1t»«»3*'77777y7777''&SC3t42i6l&AC9l39t9] 



25411000 
25420000 
25430000 



S2 
S3 

S4 

ss 



&LEVEL0UUNTC18J39J93; 

junkb:«RESwrdchk; 

M OVE(l iT FSTBi JFFE Rn,NAMES[ N E XTLAB FL J)? 



25431000 
25432000 
1440000 



-a^ 



nextlabelmnextlabeL+i; 
end; 



end; 



25450000 
25460000 
25470000 



• • 



2 
3 

4 



xn» end; 25tboooo 

%*********************************•************** ***********************25b30000 

PROCEDURE statement; FPHWAHU; ^ -^-^. ^ ■ 25^40000 

x*******»********#************#* ************ ♦*************^« 

PROCEOURC COMPQUNDSTATEMENT; 25560000 



LABEL SEMICCLOr),;^IT; 

scan; xword previously 
whi l e tr ue d o 



IN USTBLKFER WAS "BEGIN" 



BEGIN 



statement; 

IF WanrR£SrRVEDI73>l)»0 TH£N GD XIT pLSr 



255yQnoo 

25ia0000 
25i3V0000 
■?b6U0Qafl- 
25610000 
25620000 
2 563 00. 



10 

11 



IF NOTCCUUNTsO AND SPEC I aLCHRs'S " ) THEN 
PRINTHERROHCU^j; 



SEMICQLON< 



25640000 
25641000 
256^10000 



13 



15 



16 
17 
18 



scan; 

IF specialchr*«;»' 

ENDl 



ANO CQUnTbO THEN 60 SEMIGOLONi 



xiTi scan; end; 



25651000 
25652000 
2S660Q00 



25670000 



J{***********************************************************************25610000 



PROCEDURE conditionalstatement; 



25620000 



19 
20 



22 
23 

24 



26 
27 
26 
29 

30 



31 



33 

34 



BEQIN 
INTEGER Al»A2; 
■LABEL XIT; 



25830000 
25840000 
25850000 



% 
AlisA; 

scan; 



EMITLITERAL(O); 



IF WORD NEB ESlE THEN 

STATEMENTi 

TF wnHn«rsi r TnrN 



25860000 

25870000 

■ 25860000-. 



25881000 
25890000 



BEGIN 



A2:sa; E^^ITLlTErtALcO); 
C0DECAU»-fi&ACCTSCFHS[CTF3; 



25^10000 
25V20000 
2 5^*3 00 



IF DEBUGN 
All»A2; 
SCAN J 



THEN DEBUGaUT( CODEC Al 3* 5* Al ) ; 



25931000 
25940000 

?«>95onQn 



IF WORD NEU 
STATEMENT; 



ESlE THEt\ 



ENp ; 



25951000 
25960000 
2 59?00 QQ 



38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
•8 



C0DECAni*8«ACCTSCF3&StCTFJ; 

IF OEBUGN THEN DEBU60UT{ CODEC AU* S» Al ); 

xTT> FNn; ^ ,■ •-' ■ . . 



25980000 
25981000 

?599Qnnn 



%****************************************************** *****************26000000 
PROCEDURE DOLOOP; 26010000 
BEGIN . . . 2 6Q 2000Q- 



COMMEnT do LOOPS cause THE following CODE TO 
BE EMlTEDt 



26020005 
26020010 
26020015 



BRANCH TO LOaf» SEGMENT (IF LtVELC0UNT*0) 
BEGlNNINli OF LOUP INSTRUCTION 

INSTHI^CTION . 



26020020 
26020025 

2 6 2 Q3Q 



•9 
90 



CND OF LOOP INSTRycTlOU 



26020035 
26020040 
2 60 £00 ft 5 



;3 



BRANCH BACK TO SEGMENT (IF LE VELCOUNTbI ) ; 
INTEGER AUl; 



26020050 
26020055 
26030000 



^ 



BOOLEAN SEGTOG; 
LABEL XiTi 

IF LEVELCOUNT«»LEVELCOUNT»l^MAXLEVCtS THEN 



26030100 
26040000 



55 
56 I 
5? 



PRINTERRURO) ELSt 

scan; 

IF t^RCCRLbERVED^NROFHLSEHVEU; = ll IhlK 



26060000 
26070000 
260a0000 



IF SEGTOGJeSsQ THEN 

STARTASEGMENTCNtXTStGJ 
EMITLITERAL(3'*10Q"); 



•NtXTSEG + l^FALSE)^ 



26090000 
26100000 
26100200 



Al iKA; 
state^'ent; 

FOR L«gNE.XTLABEt-l 



STEP -1 UNTIL DO 



26U0OO0 
26120000 
26120100 



IL. 



IF CNTU-tABELSCLJ) GTR THEN 

LABELStL3.CSf3«»MIN(NTiaSFJ#LEVELCOUNT' 
BQD\ FANfNT2t«R£AL(aPFClALCHRa''*H)i THFM 



n; 



26120200 
26120300 
26130000 



he 



19 
20 
21 



BEGIN 



IF LEVElCOUNT NLU J. THEN PR I NTHERKQR ( 4 ) > 
TrSTR(jFFERL03» = 0; 



26140000 
26lb000U 
2616QQQ0 



END ELSE 

IF COUNT GEQ THEN 

BEGIN 



fnd; 



PRINTHERRQRC4)i 
TESTBUFFERCOJ!*0; 



26170000 
26180000 
?ftl81000 



BEGIN 



26182000 
26163000 
26184000 



CQ0ECAl-l1«tFFU»A; 

IF DrBUfiN THFN nEHUfiOuTf rnnFCfli'-n#s>Al-'i ); 



26190000 
26200000 
262Q1000 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

3S 

36 

37 ~ 

38 



IF NTlSsTESTBUFFLR 
PRINTH£RR0R(5) ttS 
IF W0RD»6 THEN EMI 



CO] GEQ 512 THEN 

E scan; 

TC3»(M1»REALCNTU0))^A1,NT2 



26210000 

26220000 

) ELSE26230000 



PRlNTHERR0R(6)i 

end; 

LEVELCOUNT t»L£V£LCaUINT» 



ii_ 



26240000 
26250000 



xiTJ end; 



IF SEGTOG THEN FINlSHiJE 

****** 



%*****************••**•********* 



Gh^ENTCFAL^E); 

**************************** 



26270000 

26280000 
******26 280l^iL. 



PROCEDURE SUBRTINEDEC; 
BEGIN 
COMMENT A SUBROUTINE 



SEGMENT LOOKS JUbT LIKE A 



26280200 
26280300 
26280305 



LOOP SEGi-tENT WITH THE EXCEPFIUN THAT 

THE BEGlNNINti OF LOOP InSTKUCTIOn HAS NEG, 

SIGN AND TH6 ; £NQ ^F LOOP I NST^^UCT I QN HAS A 



26280310 
26280315 
2628Q32Q 



REPEAT FIELD CSCF) OF ZERO. 



L AB E L X I T; 



26280325 
26280330 

gft2aoflnQ 



40 
41 
42 
43 



INTEGER LL»l; 

% 

IF StA NFQ r. THEN PRI NTF, R8U R ( 822 ) ? 



26280500 
26280600 
26«ifl070n 



4S 
46 
47 
48 
49 
50 
51 
52 
53 
54 
56 
56 
57 



scan; 

IF COUNT ttO 
IF WRnCSUfiNAM 



THEN PRINTERR0R«951); 

ES r Q 1» NEXT SUB ) GEO THFN PR TNTFRRQR C 850 ) ; 



26230800 
26280900 
26281000 



IF RESWRDCHK 

scan; 

IF SPECIALCHR 



THEN move(i*testbuffer#subnamescnextsub] ); 

NEQ ♦';" THEiN PRINTERR0K(119) ELSE SCAN; 



26261100 

26281200 
26281300 



levelcount»«i 
startasegment 
subrcnextsub3 



CNEXTSEGJ 
»*NEXTSEG 



«NEXTS£G"H*TRU£)I 
I ' 



26281350 
26281400 

^It fflFii T* Tff W^ ^T 'A Im 



NEXTSUB»aNEXTSUB+i; 

EMITC0*1#0M); 

LLIaNEXTLABEU; 



26281450 
26281500 
26281600 



STATEMENT; 
CODECOJ.CFFU 
IF DEBUGN THE 



»a; 

N nEBUGQuT(CUDE[03^SfOi; 



26881700 
26281800 



m • 



1 

) 2 
3 
4 

I 5 
6 

; 

9 
10 
11 
12 
13 
14 
IS 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



32 

33 
34 
35 



37 
38 
39 
40 



42 
43' 



«5 
46 
1 47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



EMITC3'0*1*C); 

FOR Li=NEXTUAdEL-l STtr' "1 UNTIL LL DO 

TP I, AflEI 5fi. 1 fiTK Q TriFN 



LABELSCL3fCSF3i*0; 

leveucountisq; 

FINTSHSFfiMFK;T{TRtJr^i 



26i2d2OO0 
26262100 
-?62a22Q0- 



26262300 
26282400 
P62ag'nQn 



XIT; end; 262b2600 

x*****************************ii,********************^************^^^^^<^^^^^262yoooo 

procedure lOSTATEMLNTCTYPEJJ VALUE TYPil; INTeGeH TYPt^J 26300000 

BEGIN 26310000 



BEGIN 
COMMENT 

TYPE 



TYPES2 
TYPES3 
TYPF--4 



RgAD 



TYPE«S 
TYPE a 6 



>^RITE 
SPACE 
EHASF. 



REWIND 
BACKSPACE 



DEFINE 

AB=0#» 
■RKWn=lS#f 



AtFA»15#* 
BNRY»30*# 
lNTns?l#^ 



FR0M=:22#* 
B0T*34#* 
-EOTgastf 



THRUf36*» 
QMsgd*; 
I NTEGER fftf O CEnURE 



BEGIN 

scan; 



WH A TUN IT* 



i)(;ANj 

IF ms^^RUajNITABLEtO^OJ^NEXTLMT) GEQ THEN 



WHATUNITJ«U ELSE 
IF U«»WR0(UNITSC0#O3*16) GEQ THEN 
BEGIN 



MDVk.(l#UNITSto»uJ»UMTABLELO'Nfc.XTUNlT] )t 
UMTAHLECl'NtXTUNlT]SsUNlTStl*UJ; 

WHATUNlT:=NEXTUl\n; 

NEXTUNITS*NeXTUNIT+i; 



END ELSE 
WHATUNlTt*"!; 



end; 



BOOLEAN PROCEDURE UuTPUTMLlD IF I tK;i ( I UU . i UD i ) ; 
REAL lODMODi; . 



BEGIN 



outputmqdifiers««true; 

IF XsBNftY THEN ELSE 



IF W=AB THEN IUdI J =- A8S ( lODl ) ELSE 
IF W«NUNO THEN IUd,C2{1]:s1 ELSE 



END! 



IF WsNOE THEN IlJoi . [2 ; 1 3 : s 1 ELSt- ; 

IF WsON THEN I00»«-IOD ELSE 
0UTPUTMOOlflERS»»FALSE; 



26320000 

26340000 

26350000 

- 26360000- 



26370000 
26380000 
26390000 



264U0OOO 
26401000 

?ft4iaaQii, 



26420000 

26430000 

■ 2 644 0,0j0i} 



26450000 
26460000 

_2^A.z.acoo 



26480000 
26490000 

.-2^xxo^ao- 



26510000 
26520000 



26540000 
26550000 
26560000 
26i>70000 

26560000 
26590000 



26600000 
26610000 
26620000 



26630000 
X140326631000 
;tl40326631l00 



XI 40 3266 3 1200 
X14O32663U00 
iH4032663l40Q 



X140326631500 
1140326631600 
X140326631700 



REAL IUD»IODi; 

LABEL S1,S2*S2A»S3*S4*S5*S6,E,EMITI0»XIT»FINDREADMUDIFIERS; 

LABEL El,FlNDWRITEMOOIFIEKb,riNDSPACEMUDlFlERS; 

LABEL FlNDREWlNDMaDlFl£RS*KEAOWRAPUP; ~" XI 

SMiTCu Tr^SM tssi .S3« K3.s/i«s5. sa: 



X140326631800 
X140326631900 
X140a2663200Q 



SWITCH I0SWtaSl,S2*S3*S4*S5*S6; 



26640000 
26650000 
26660000 
40326661000 
26670000 
26680000 



2 
3 

4 
5 

6 
7 
8 
9 

10 
11 



6 
7 
8 

9 
10 
11 
12 
13 
14 
il5 
16 
17 
18 
19 



20 
21 



23 

24 

2S 

26 

27 

28 

29 

90 

31 " 

32 

33 



34 

35 

36 

37" 

38 



42 
43 



4S 



49 
SO 



52 
53 



55 
56 

5^_ 



IODJ3 3"500000013"'iCUt=WHATU(\,ITiC3!3:5Ji 
IF U LSS 9 THEN PR I N f EHHOR ( 77 I ) ; 
IQDU = TYPE&3"777 77 777"[1HIiJ4;?4 1; 



SI2e:«0; 

SCANJ 

GD TQ S WfTY PE] ^ 



SU XREAD 

I00.t24jn:«l' 

IF rt?«wnHn=PAT 



THEN 



BEGIN 



IOO.CSFJ'«SIZEi«tF R»swHATPATtERrv{-U tSS THEN 

((ftflS(P)47) nrv a) kl.se 



IF P GEQ 
BEG I N 



THEN 



pattehnsco^pj.csfj; 



scan; ioDi.cFF]«»p; 

IF WORD»THRU THEN 
BFGIN 



scan; 

IF W0RD5TLLY 
BEGIIM 



THEN 



lOD.tSFUsioaa; size»«io2o; 

EN© ELSE 

IF COUNT GFU THFi\ PRTNTEHRORCTaOV 



If NTIJ'TESTBUFFERCOJ DiV 
PHlNTtHRDRC781) EL^E 
lOQ.ISFUaNTi; 



ELSE 



8 GTR SUE THEN 



END 



ENDi 



scan; 



ENO 



IQDl.CSFlJsENTIERCABbCP) MOO 8); 
W»»IF COUNT GTR THEN wQRO ELSE "i; 
FLSE 



IF W»TPMRK THEN 
BEGIN 

TOD. [27123193; 



IOD.[Sf3«*SI2ES=1020J 

scan; 

W»gIF C(3UNT fiTR THEN 



END ELSE 
IF (JUNKBJ 
BEGIN 



WORD ELSE -i; 



!W»BOT) OR W»EOT THEN 



26690000 
26700000 
PftHOOOfl 



26720000 
26730000 
9ft7aQnnn 



26/'i)0000 
26760000 
26770000. 



26780000 
26790000 
26600000 



268i0000 

26820000 

■ 26630000- 



26840000 
26850000 
2 666 0000 
26870000 
26880000 
268900 



26900000 
26*10000 
26^20000- 



269 30000 
26940000 
2 69 5 000 



26960000 
26970000 
9A9aQnnn 



26990000 
27000000 
27010000 



27020000 
27030000 



27050000 
27060000 
27070000 



lOD.C27Sni = i; I0D.C29;n» = i; lC0.C225n JsREAL(JUNKB); 

scan; 

_ W « a I F COUNT GTR THEN ^QRp 



27080000 
27090000 
27100000 



END ELSE 

I0D,tSf]t«Sl2El»1020; 
FINDREADMODlflERSI 



ELSE "i; 



27110000 
27120000 
2 713OQQ 



IF SPECIAUCHR 

BEGIN 
READWRAPUPl 



NEQ OR COUNT LSS C THEN 



27140000 
27150000 
27160QO0 



IF PI«lODl,tFF) NEQ EMPTY AND lODl » C SCF3«3''777" 

ICD1.[S£F3I«WHICH8UFF£H(THUE); 
IF P NFQ EMPTY OR lOPl . [SCF.ls3"77 7" THEN 



THEN 



27170000 

27171000 
27172000 



DBUFFSIZEI»MAX(0BUFFS1ZE#IF PsEMPTY 

THEN IUD,[SFJ ELSE PATTERNS [0/ P ], [SF 1 ) ; 

GO ehiti q; 



27180000 

27190000 

, 271900 50 



END 
ELSE 
IF WsSKWP 



27190100 
27190200 
27200QQQ 



THEN TQn.r22;ilt«l PLSF 



27201000 
27210000 
27 a2 Q0 



# • 



10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

2« 

27 

28 

29 

30 

31" 

32 

33 



34 
3S 
36 

37" 

38 

39 

40 
41 
42 
43" 



45 
48 
47 
•S 
49 
90 
51 
S2 
M 
54 



55 
56 



IF W»ALFA THEN 
BEGIN 

lOD.[,cHn:=;0,f 



IF BLCiaD,C27Jl3) 
END ELSE 
-XF WflNTG THEN . 



THEN I0D,C28llJr«0j 



27230000 
27240000 
27«i^()000. 



BEGIN 



27260000 
27270000 
272V00flX^- 



IF lOCl.tSCF] LSS i"777" ThEN 
PhTNTE,RRnRC7:3li ) tiil, Sf, SCflN; 



END 



IF WORDsiUFF THEN 
PRINTERR0R(777)J 

MM ^ -^- 



IQOl.CSCFJlsWHATBUFFER ELSE 



27300000 

27310000 

.27320000-. 



IF WORD«PAR THEN lOD . [28 ! 1 J I = 1 ELSE 
IF OUTPUTMCDIFlERSCIODMOOn THE,^ 
IF WsQN THFM GO READWRAPil^^ EL-^F 



27330000 
27340000 
273500011.. 



■SZi. 



ELSE PRlNTERR0R(759)i 

scan; WMWOPDi GO FINOREADMOOiriERS; 

itWRlTE 



27360000 
X140327370000 
» i an 3 273 a QQ0 Q. 



maketapejstrue; 

IF w:=WORDsFRQM 
BE GI N 



27^*10000 
27^20000 
27^ 3 00 



THEN 



S2AI 



27'»40000 
27450000 

27<*6aaai}, 



SCAN* 

IF hORngBUFF 



THEN ara^HATBUFFFR £LSg PR iNTrRROR C 75 ^) i 



IF iaD,[l-"FJ = EMPTY AND SUL = THE^ 
ICD,[SF]:sBUFFE«i)CO*B].[SFj; 

mm .[scFiisB; „ 



scan; 

END ELSE 

I F WgpAT THFN 



27470000 
27460000 
27490Q00 
27500000 
27510000 

_27-5^a(Kla 



BEGIN 



27530000 
27540000 
27bSQnnn 



lOD.CSF] SsSlZE: = lF P :sWHATPA r TFHNC - 1 ) LSS THEN 
CfABScP)47) OIV B) LLSL P ATT ERNS [ 0^ P 3 . r SF 3 J 



IF P GEO THEN 

BEGIN 

Scan; lODi.rFFJiap; 



27560000 
27570000 
275B0QQJ1. 



IF WaRD = THRU THLiN 
BEGIN 

scan? 



275S»0000 
27600000 
27610Q0Q 



27620000 
27630000 
-27640000 



IF WaRO»TLLY THEN 27650000 

BEGIN IQDaSF]ial02j; SlZ£jsl020; END ELSE 27660000 
IF COUNT GEQ Q THEN PRiNTERRQRt 780 ) ELSE 27670000 



IF NT! ssTESTfiUKFtNCO] UiV 
PRINTLKRQRC/aU ELSE 
lGD,rSF]:=NTlJ 



8 GTR SIZE THEN 



END 



ENOi 
ELSE 



SCANI 



27680000 
276VOOO0 
27700000 



I0Dl.[SF3:=ENTlERCABbCP) 

IF WI»WOKD=FHGM THEN 

GO S2A 



MOD fl); 



27710000 
27720000 
27730000 



ELSE 



27740000 
27750000 
27 7 50 100 



END ELSE 
IF WsTPMRK 
BEGIN 



DBUFF5IiEi«MAX(DBUfFSIZE*IF P GEO THEN 
—^ PATTERNSI0»P3.tSF3 ELSE 100. CSFl^J 



27750200 
27750300 
27750400 



THEN 



JLIiDL 



scan; 

100I»I0043"40«CCTF3; 
ELSE IQn.CSF3tsi020; 



27760000 
27770000 
2776Q0Q0 



27790000 
27800000 
278 100 00 



▼n« 



li 



7 

8 
9 
10 



# • 



FINDWRITEMOOiriERSS 

IF SPECIALCHW Nt:Q UH 
IF H>=»^nRn =ALFA THTN 



COUNT L^S C THtN GO LMJTID ELSt 



27811000 

27812000 
atl4Q327a3000Q 



BEGIN 



scan; ioQ.t2isi]i«o; 

I F HQ Rn» GM TH EN 



27e<»0000 
27850000 
^7860000 



BEGIN 



ICD,C2i:ns-0; 

Stan; 



end; 

END ELSE 

IF QUTPUTMQniFlFRSdQnMQun 



27870000 
27880000 

27Svnaco _ 



THEN 



27900000 

27V10000 

XH0 3279n00G 



13 

14 
115 
|16 
17 
IS 



19 
20 



IF wsON THEN GO EMITIO ELSfc SCAN 

ELSE PRINTERRORC773); 

GO FINDW RI TE M OP IFH-IRS ; 



XU0327V12000 

jil40327V13000 

-XlA0i2iiiiMQiI 



S3t 



IF WI«WORO«PAT THEN 
flEfilN 



27930000 

27930200 

■27930300- 



SCAN; 27930^00 

IF COUNT GEQ THEN PRlNTERHOR ( 7 72 ) ELSE 27930500 

-IE (SlZF» = f ri::STBgFFEHLQU7)niV B)GElJ Q AND SUP; lSS 1Q?1 ?7930fin0 



ELSE 



THEN I0D1,CSF]:*SI2E 
PRINTERRQRC772)J 



27930700 
279 30800 
27930000 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43*" 



scan; 
end; 
i Q D.E24a H ci ; 



27931000 
27931100 
2794Q00Q 



FlNDSPACEMOOIFIERSl 

IF SPECIALChR N€Q OR COUNT LSS THEN QO EMITIO ELSE 
IF f JUNKBI«fW»»WQRQ)gBaT3 UR W«EQT THEN „__ 



27940100 
27950000 
279 6Q QQ Q 



BEGIN 



lOD,C27»l]:si; IQD,t^9:i]:si; 

TQD,[2?;i]{«i|^Ai(^,uNt^>^); ,, 



t^ET 



END ELSE 

IF W»PAR THEN i00.t28inJ*l ELSE 
OMIT » OMIT OR FASTPRIVE 



27970000 
27980000 
2799Q000 



28000000 
28010000 
28019999 



IF W = BKWD THEN lOD.[22n3!sl ELSE 
SPOP OMIT 
Jt^ET QMIT « OMIT PR NOT FASTORIV^; 



28020000 
28020100 

2aoi;oi5Q 



IF W a BKWD THEN 
BEGIN 

TF Bi.,{inD.t?7«n) THEN inn.£?flin i ~i; 



28020200 
28020300 

?aQ?oano 



lOD.C22:i3;»i; 
END 
XLS£ 



28020500 
28020600 
260^0700 



4S 
46 
47 
48 
49 
50 
51 
B2 
53 
J4 
55 
56 



*POP OMIT 

IF W«ALFA then lOO»C2l»i3»«0 EtSE 
t»ET OMIT 8 QMIT OR FAiS>TOR|VE - -^ - 



23020800 
28030000 
28039999 



IF W*TPMRK then 1QD.L27J 1] »«1 ELSE 
$PCJP DMIT 
Si>ET OMIT » OMIT O R NOT FASTDHIV F , 



^140328040000 

28040100 

28040200 



IF W ■ TfiMRK THEN ^ 

BEGIN ■ ■ 
rr BiMaft.cgpi i rv TkEti ion, t^ftitiigi t 



28040300 
28040400 
2»Q4Q5Q0 



iOD.c27«n««i; 

END 
ELSE 



fPOP OMIT 



28040600 
28040700 
28040600 



IF OUTPUTMOOIFIERSCIOO#IOOI) THEN 
IF WbQN THFfc Gn FMTTIQ FLS£ 



2&040900 
X140328050000 
1140326060000 



J 



>r 



10 

11 

12 
13 
14 
IS 

le 

17 
18 
19 
20 
21 
22 
23 
24 
25 
2< 

2' 
28 
29 
M 

31 " 

32 

U 



34 
3S 
36 

37 ~ 

38 

39 

40 

41 
42 



45 

47 
«8 



y. 



else printepf<0r(772); 
scan; 

GO FINn.SPACEMODlFIER.'ii 



S4: XERASE 

IOO.tl8ll3l«i; 
G Q S ?l 



S5: XREWIND 

I0DI»I0D & 3"'*2"C18J4256]; 

IF y^««WQRD = R QT ,, THFN 



X14O32807000Q 
28080000 

^aXJAO-OOO 

28100000 
28110000 

28120000- 



BEGIN 



lODIf lOD « 5C27»45i3J; 

scan; 



end; 



WJ=IF COUNT GTR THLN hQRC ELSE "i; 



IF SPECIALCHR NEfi OR CQUMT lSS 
IF OUTPUTMODIFIERSCIQUMQUI) THEN 
IF WgQN THE^ GQ EMI TIP ELSE 



THEN GO EMITIO ELSE 



S6; 



ELSE PRINTERR0R(772); 

scan; wjswcrd; go finorewindmo^ifiers; 
. ^backspace ; 



I00,t22ll]J«i; 
GO S3; 



emitliteralcioo; 
emitliteralciodd; 

TF inp LSS r THEN 



Ell 



BEGIN 



SCAN? 



fnd; 



J V. « n > » , . , : ^ 

IF WORc = tRR THEN CONQl T I QNAl-ST AT EMENT ELSE 

printerror(8io); 



2813U000 
!i;i40328140000 
itHQ32Hi;?0QQ0 
Xia032Sl5l000 
X140328152000 
^140328153000 
-Iil40328l54000 
!lil4U328l55000 
1 140 32 6 1000 0^1., 
Xl40328ir0000 
X140328180000 
itl4032al90000 

S<140328191000 
*14032a200000 

, 28^10000- 

28220000 
28230000 

2a26QaQJ„. 

2827000C 
28280000 

2829.aafl.a-. 

28300000 
28310000 

26 320 000 - 

28330000 



28340000 
263tiQ000 
XITJ end; 28360000 

X***4r****«***********************«***«*****«*«*ilr************************28360]i00 

PROCEDURE BOOLEAnEXPRESSIQn; 2fl3602Q 



BEGIN 
COMMENT 



IF "NOT" 0CCu9S Ih A BOOLEAN txPRESSION 
AN EXTRA BRANCH FORWaRH P rNSTRUfTfaNS fS 



LABEL XIT; 
BOOLEAN NOTCG; 



EHITEO after THE TEST INSTRUCTION. THIS 
RESULTS IN A NEGATION Of THE «ESULT OF THE 
TrSTi : 



scan; 

IF N0T0Gt»Ktis|(«0R0»28 THEN 

BEfiTN scan; ifWQiOJ ENOJ 



IF WsTGLE THEN EMI T( I 3*2 »0 »0 ) ELSE 
IF WaM0D3 THEN EM IT C 1 3' 4M' ) £LS£ 
IF W«TLLY THEN 



BEGIN 




28360300 
28360305 

28 36 0310 

28360315 

28360320 

?B3flQ3?'S- 

28360400 

28360450 

2 63605 00 

28360600 

26360610 

28360620 

28360700 

28360800 

2 836 16Q Q 

28361700 

28361600 

28 3 61900 



IF SPECIALCHRsS"!?" UH 
IF SPECIALCHR«3'*74'' ON 
PRINTERR0R(819)J 



28362000 
28362100 
28362200 



A»44 
W»45 



THEN 
THEN 



NTU»5 ELSE 



28362300 
26362400 



# • 



h 



2 
3 
4 
5 
6 
7 
8 
9 
10 



12 
13 

14 

55 ' 



116 

^7 
18 
19 
20 
21 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



34 

35 

36 

37' 

38 

39 

40 

41 

42 



44 
46 



*6 
47 



49 
50 



52 

53 



55 
56 



scan; 

IF COIM GTR THEN PK in rERRCR ( BiiO ) ELSE 

IF (JUNKb;sSffEClALCHRg"-") Ok SPL C I Al CHR ;."♦" 



THEN scan; 
IF COUM GEQ THEN 
EMITC13*3*NT1>0); 



28362600 
28362700 
2 fi36 2aQQ 



P«IN7ERH0R(820); 



EMlTLlTEI^AL(TESTBUFFt;H[0UREAL(JljNKBj[i;47Jm; 
END ELSE 
BEGIN 



28362900 
28363000 
283631QQ 



IF 
IF 



W*24 
W«34 
MM25- 



THEN 
THEN 



NTU»5 
NTlt»6 
NTH»7 



ELSE 
ELSE 

£LSF 



28363200 
28363300 
28363ftO0 



IF H GEQ ^6 AND W 
PRlNTERR0R(823)i 

scan; 



LE& bO THEN NTlJsw-38 ELSE 



28363500 
28363600 
28363700 



IF W8RC » ON THEN 
BEGIN 

Scan; 



X140628363800 

)IH40628363900 

-ai HO6 2a3 64Q 00., 



XHO- 



IF WORD NEQ BuFF 

M2«=whatbuffek; 

ELSE 



THEN lastscan:sF1rstscan; 



2836^010 
X140628364020 
X14Q6?fl36403n 



BEGIN 



%H0628364o4o 
X140628364050 
ail40628364060 



LASTSCANI«f laSTSCAN; 
NT3<sQ3 



X140628364070 
1140628364080 



end; 

EMlT(13»NTl*iMT2'0); 



end; 



scan; 

if word nco thn then phinterrcrcsai); 

IF NHTOfi THEN EMTT ( B * f A »2 )#S« ) 1 



»14062a364l00 

*140()283G4200 

28 ^64 3 00 



28364400 
28364500 
28364510 



XITI end; 28364600 

X****************************** ******************** *********************2837000Q 
PROCEDURE nlSPLAYSTATEMENTcTYPE); VALUF TYPe; TNTr(;FR TYPFJ < iaQ6?fi380Q Qfl 



BEGIN 
COMMENT 
TYPFwQ 



PRIMT 



%140628381000 
X140628382000 
111 406 28 3 8 3 000 



TYPE?1 



DISPL,AY 



LABEL 



GETPAT>UVAR*8VaR* 
FlNDISPLAYMOOlFIE«S*£MITDlSPLAY» 
XtTI ■ 



i«14U628384000 
X140628385000 
a;14Q6?63a6000 



SIZ£»a0; 
NT2IS15; 

s ca n; 



X140628387000 
Xl406283a8000 
X14062a389QQQ 



IF SPEClALCHRs^C THEN 
BEGIN 

lastscanufirstscan; 



«140628390000 
X140628391000 

81406283^2000 



GO getpat; 
end; 

if W»»W0RQ8BUFF 



X140628393000 
X 140628394000 
X1406 2fl395Q0Q 



THEN 



BEGIN 



X140628396000 
X140628397000 
afl40628398Q00 



W T 1 1 •' 1 1 ■■ ■ ■ 

NT2liNT2&WHATBUfF£RCClFlJ 



scan; 

END ELSE 

IF W=PAT THFN 



11140628399000 
XI 40628 4 00000 
1140628401000 



BEGIN 
GETPATJ NTll»2l 

- NT2.CrF3l»Pl*XHATPATT£RN(3); 



X140628402000 
X140628403000 
X 1 406 2 fl4040 0Q 



X140628405000 
X 140626406000 
< 3 1 40^28407000 



# • 



h 



10 

11 

12 



16 
17 
18 



19 
20 
21 



24 

25 ■,'■' 



26 



30 

31 ~ 

32 

33 

34 

35 



36 
37" 



39 



41 
42 



«6 



«9 
SO 



53 
54 



56 



_£ML 



DBUFrSlZL:sMAX(DBUFFaIZE»'^ArTEf^NStOM'J ,[SF] )> 

scan; 

ELSE 



IF W GEQ S2 and W LEQ 54 then 
BEGIN 
NT 3»aW52 ; __^ 



X14062a408000 
*l«U62a409000 



)(H0628*U000 
% 14062a.'* 12000 
il4Q62a<tl3Q0Q 



8VARI NTiJ=a; 

NT2ls\T2«iNT3[36U5:3j; 
SCAN/ 



IF WOR0si9 THEN % FOR 
BEGIN 

, S C AN ? 



:(140628414000 

XH0628415000 

JOAMZiiAXAQSilL 



X140628417000 
Xi4U6284l8000 

>i4Q6?Hai9nnn-. 



IF WDRO NEQ Buff then LASTbCAN:=FIRSTSCAN; 
\T2«»NT2iiWHATi3UFrER[i;4Sj9J9J> 

Scan; , , 



*14062a420000 
!»H0(32e4^l000 

aiH062a4.22£iaa. 



end; 

END EtSe 

TF W»TLIY THEN 



BEGIN 



UVAR-L 



NT3««0; 

NTiJga; 



X140628423000 
X140628424000 

%140628426000 
a;l40628427000 
!tl406284gfl0nx: 



END 



NT2»sNT24NT3Cl8:42»6]; 

scan; 

ELSE . 



X140628429000 
X140628430000 

i;i4Q6?a43iaoa- 



NTii»0; 

NT3»sc; 
XlNDISPLAYMOniFIE'^;?; 



IF SPECIALCHR NEfl OR 
IF WI*WORD»OUBLE THEN 
RFfilN ^ 



COUNT L^S THEN GO EMITDISPLAy; 



X140628432000 
X14U628433000 
:t 140(^264 3 400.0 ■ 



scan; if woro=spce thln scan; 

NT3»»NT3+2; 

6 F INnl^P|„ AYH0 L)lF l£H3; 



END ELSE 

IF W«PGE THEN NT3j«NT3+4 ELSE 

IF W»N0NQ then TYPEtaQ ELSE 



X140628435000 
X140626436000 
1H40628417000 
X14O62843e0O0 
X14062a439000 
1 1406 284^ 00 00 



IF W»36 OR \ns22 THEN 
BEGIN 

NT2«[l»2J»=2^f^FAi,Cw = 3ft)tRE ;AL (^u 2a p; 



X140628441000 
j;140628442000 

%i406gR4a3nQn 



scan; 

IF COUNT LSS Th£N 

IF SIZEI»T|-STBUFFERt03 GTR in?Q THEN 



tl40628444000 
«14O62844S000 
al4O62 B446Q Q0 



PRINTERI<0RC306) 
ELSE NT4JS0 
E LS E 



%140628447000 
iH40628448000 
XUQ6?R449n0n 



BEGIN 



X1406284i>0000 
1140628451000 
itl4062e4t;2000 



siZEiso; 

IF WI«WORO»TLLY 



THEN NT4»»i Else 



*i40628453000 
Xi40628454000 
S;l4062e455O00 



IF W352 THEN NT4»=2 ELSE 
PRINTERR0RC306J; 



end; 



NT21»NT24NT4C6I46I23> 
IF NTI»0 THEN 
BEGIN 



X140628456000 
X140628457000 
!tl 406 284baQO . O 



X140628459000 
» 140628460000 
»14Q6ae461Q00 



NT2.C24:9]taNTH»i; 



END 



end; 

ELSE 



pbiinterr0rc401); 

scan; 

qo fin0i»playm0difiers; 



X140628462000 
X140628463000 
X140628464000 



X140628465000 
X140628466000 
X140628467000 



1^ 
2I 

3 



h 



%l406284e)6000 
%l'i0626'ib9QQQ 



EMITDISPLAYJ 

IF NT3 GTH ^ THEN PH INT trtt^U R ( 402 ) ELSt. 

E»^lTLITERAL(NT2&NTUi9U5;i]&(TYP,r-t-NT3)C33;45;3]&SIZECCTSF3); 2fl4yonnn 

XITI XH0628471000 

ENOr XH0628472000 

Hlr*ilt***llrilr***ilr*****?g900000 



>************» *l^*♦^^*<r^^^**^n^****♦*1lr<r****^>**1lr*•1^r*^>1^*l<^^>|^*»^^1 



7 
8 
9 
10 

11 

12 
13 
14 

lis 



19 
20 



21 
22 
23 
24 
25 
26 
27 



28 
29 

30 
31 
32 
33 



34 

35 
36 
37' 



38 
39 



42 



47 
«8 

49 
SO 



52 

53 



55 
56 



PROCEDURE SlATEf'ENT; 

BEGIN 
LABEL 



*140628910000 
Xia0628920000 
XUOft28V30000 



Sl*S2»S3*Sft#S;3»S6»S7»SV>Sia»Si2*Si3*Sl4»Sl5»Sl6*Sl7»Si8# X 140628940000 
START* X140628950000 

E#GfBSNf TQ* %\H(i6?a9fi0000- 

XIT; X140628970000 

SWITCH SWl*SWS2'S3,34*S5,o6*s7»XIT»S9»li»Sl0'8GNf »l4o6289fcl0000 

TOMOmO> IGMG»I0*S13^SrJ>S14«S15>Sl6>S|7.Slfl il! | aQft?^99Qnnn , 



START* 

junkr»»falsfi 



IF COUNT LEQ THEN 
BEGIN 
IF SPECTA|..ChRa' 



!i;i'»062900000G 
XJ40629OIO000 

tuQ6?9Q2Qnnn 



THt^N QO xlTJ 



END 



junkqucount tss 

PRINTNERR0RC2); 

El St . 



X14Q629030000 
«140G29040C0C 
il4U6290;3QOOO 



IF WtsWRDCREStRvED^NRQFREstRVED) 

GO SW[W + n ELSE 

BEG IN 



tiEQ C THEN 



X140629060000 
1140629070000 

atl40629080000 



JUNKBtaSPECIALCHR»">"> 

PRiNTHERRORCe)) 

FiRSTSCANtsLaSTSCAN; 



X140629090000 
Xia0629100000 
Jtl4Q6?9110non 



XELSE 



ENDi 

IF JUNKB THEN 

g o start; 



X150129120000 
«150129130000 

iH5Qi?9iaQnon 



GO XIT ELSE scan; 



SU XINPUT 
SCAN! 
IF W0RD»TLLY THEN EMI TLITEHALC 1) ELSE 



%HO6291b0000 
X140629160000 
itI4Q6?9l7QQno 



Xl«0629l80000 
X140629190000 
%H0629200000 



PRINTERR0R(305); 

scan; 

GO x ij; 



S2I XOISPLAY 
NTlmii 
IF FALSE THFN 



X14g6292i0000 
X140629220000 
!8 1< t0 629^30QQQ 



S14S XPRINT 

NT1J=0; 
PISPLAYSTATE M £NTCNTU; 



a;i40629240000 
X140629250000 
iS140629260000 



S3» 



GO xtir 
xoo 

QOLQOP; 



X140629270000 
X140629280000 



scan; 
GO xit; 

S4» XFILL 



Xia0629i00000 
29310000 
293Z0QQQ 



scan; 

Ntli»NT2l»0; 

IF WI»WORDffTLkY THEN 



29330000 
29340000 
29350000 



BEGIN 



29360000 
29370000 



scan; 

IF WORO»iWTH THEN SCAN ELSE PR INT EKROh( 501 ) ; 



IF WORO*TLLY THEN 

BEGIN Scan; ntu»i; end; 

IF SPECIALCHR*"*" THEN SCAN PLSF 



293V0000 
29400000 
29410000 



29«aoooo 

29430000 
2f44 0QOQ 



57( 



• • 



>T 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 



21 
22 



23 
24 

2B 
26 



27 
28 



29 

30 



31 
32 
33 
34 



35 
36 



37 
38 



41 
42 

43 ' 



45 
«6 
♦7 
48 



«9 
SO 
51 
52 
53 
S4 
55 
58 



IF SPECIALCHRs"-" THLiM 

BEGIN N72:=i; SCAn; tND; 
IF CtJUM fi£» THf;,N PHlNTf:,RRi,1R(-3n3) 



■SXJ^Z- 



EMIT(13»0*0*NTI); 
EMlTtITERAl.CTESTBUFF£RC0]&NT2Cn47Jn); 
SCANi GO XlTi - 



294b0000 
29460000 
?9470nn0- 



END ELSE 
IF rt=TGLE 

RFGIN 



29480000 
29490000 
po50Qnnn 



THEN 



SCANI 

IF WOROsWTH THEN SCAN ELSE PK INTEHROR ( 501 ) ; 

TF WflRpyfSLAF THEN fl $E 



29510000 

29520000 

-Z9-530000 



IF WQRD=LURT THEN 

PRINTERRUR(504); 

FMTT(n«lfNTUn)? 



NTH = l ELSE 



29540000 
29550000 
295ftQ.aao. 



scANi GO xit; 

END ELSE 

IF WORD«BUFF THFN B»«WHATeUFF£R tTLSg Prt IImtERRQR tSQO ); 



29570000 
29560000 
29590000- 



scan; 

IF cw»=»word=wth or 

-PPI NTE R RQR{ 501)/ 



29600000 
29610000 
2962QQ0Q 



jUNK8J = WsUSIi>Hj) THEN bCAN ELSE 



IF WORDwpAT THEN 
8UFFERSC0*B1.tSF3J«MAX(8UFFERS[O*Q].CSF]# 

PATTERNSC0.Pl»WHATPATT£RN(R£AL(JUNKB))3.ISFl) ELSE 



29630000 
29640000 

296^amL 



PRINTERRQR(502); 
EMIT(4*B*P*C)> 
SCAN.i- 



GO XlTi 
S5J IROTATE 
S CA Ni 



29660000 
29670000 
3Q6flonnn 

29690000 
29700000 
2971004X0- 



IF W0RD»8UFF THEN B J =nHA Tri JFFER ELSE 

printerror(601); 

scan; 



29720000 
29730000 
?974Q0nn 



IF SPECIALCHR' 
BEGIN 

scan; 



'♦•♦ OR jUNK8»«SpECUt,CHRa"-»» THEN 



29750000 

29760000 

-2 9?'70Q QQ, 



29760000 
29790000 
29800000 



IF COUNT LSS THEN 29810000 
IF NTiisT£STrtUFFLRC03 LSS 9x C BUFFERS [0* fl] , [Sf Ij ThEN29tt20000 
EMn(5>a*NTl>R£ALC JLNKB)) 2983 0000 



END 



ELSE PRINTEBR0R(602) 
ELSE PRINTEHR0RC603)i 
ELSE 



PRINTERROR(604); 

BUFFERS C 0^8] t s-ABS (BUFFERS L Of B ] ); 

scan; 



29840000 
29850000 
29860QQ0 



56! 



GO xit; 

%SHIFT 

scan; 



29870000 
29871000 
29880000 



IF wordsbuff then 

PRINTERR0R(701); 

scan; 



BtsWHATbUFFER ELSE 



29890000 
2990OOO0 
29910000 



IF (JUNKB««SPECIALCHR9"+"i 
BEGIN 
scan; 



OR SPEClALCHRiet." |HEN 



29920000 
29930000 
2 9^400 



IF COUNT LSS THEN 
BEGIN 

IF NTltsTESTBUFFERCQ] (JTR NT2{a 



29950000 
29960000 
29970000 



8>c<BUrrEHSC0*B3,C*FIJ tHEN 
IF NT2«aNTU£NT2 DIV 8) LEQ l02l THEN 
gUFFERSCQ,BiaSf3lfNT2 £LSE w 



29980000 
29990000 
30000000 



30010000 
30020000 
90 3000 



2 ( 
3 

4 

si 

6 
7 
8 ( 

9 
10 



>r 



PRINTERRi)R(702)^ 

8UFF"ERSC0#B]!=-ABSCBUFFt.RSr.0*B] j; 
F!:HTT(6>Hf NT jyRFiALf JljN^H,) ) .8 



30040000 
30041000 
300*50000 



1 

2 
3 
4 
6 
6 
7 

e 

9 
10 

11 

12 



END ELSE PHINTERHDRC''03)J 
END ELSE 
PRlMTFRRnRf7Q<tU 



30060000 
30070000 
3QQ6000Q 



S7I 



scan; 

GO XIT/ 
iliCQMP A R E 



300^0000 
3O1U0000 
301 1 0000 



scan; 

IF Wt»WORD*PAT THEN 

DBUFF8 T Z £tgM AX( De UfF; > fZ E fPA T T ,FR NS l O# 



30120000 
30130000 

.inUQion 



{P|3WHATPATTERN(l) + MAXBUFFSj-MAX0UFFS],[i>F]) 
ELSE 
IF WsBUFF TH£N piaWHATBliFFLR E L S^ 



30130200 
30130300 
3Q HQ 000 



13 

14 



PRlNTERRQRCaOU; 

SCANJ 

IF tgQRD»WTH THEN 



SCAN ELSE PRlNTERRORCBfiQU 



soisoooo 

30160000 

3ot7nooo 



16 

17 
18 



IF WORD = BUFF THp.N B J =WHaTBUFFER ELSE PHINTERRCRC 801 ); 

scan; 

IF WtsWQRDsNONQ ThFN ^ „________ 



30180000 

30190000 

ail40'>30l9Qinn 



19 
20 



21 
22 
23 
24 
2S 
26 
27 



BEGIN 

NTli»7Slt2»47ll3; 
scan; 



30190200 
30190300 

■inivoftflo 



28 
29 

30 
31 ~ 
32 
33 



END ELSE 

IF WNOE THEN 

B E GI N 



NTll«781t3l47; iJi 

scan; 

END ELSE 



»H0330l«0500 
»1^0330190600 
%M03301VQ700 



X14O33dl9OSO0 

a!iaO330l9C>900 
il4Q33019inOQ 



NTIJ»7; X140330192000 
EM I TL ITER AL(NTUBtCTScF]&PtCTF J &HtAL(JUNKBJ*waHD=ClN)tlM7U]); 30200000 
IF JIINKB THLN fiu E EL.SK ^ , , 30210000 



GO xit; 

S9« XLABEL 
NT l f WHATL AREL f 1); 



30220000 
30230000 
102f^0000 



34 
35 
36 



scan; 

if specialchr 

scan; 



NLQ 



THEI\ PHINTERRQRCBlb); 



30260000 
30270000 
3Q2800QQ 



37 
38 
39 



E« 



GO start; 

scan; 



30290000 
30300000 
30310000 



40 
41 

42 



IF WORO=ERR THEN CONDl T IOI\mLST ATEMFM LLSt 
PRINTHERR0R(810); 

GO xit; 



30320000 
30330000 
3034009 



45 

46 

47 

te 

50 
51 
52 
53 
54 
55 
56 
f7 



Gl 



emitliteralcwhatlabelcoo); 
scan; ^ '•■ '■ ■'■■• '■•-. ■■■■- 



soast^ooo 

30360000 
.^0370000 



44 1 

46 
46 
47 ( 
48 
49 

so ( 

51 
52 
53 < 
S4 
55 
56 ' 
•57 



SIOI 



GO xit; 

IF LEVELCBUI^TsQ THEN FM I TL I TFHAL ( <Si ^ FLSF 



30360000 
30390000 
3 040 Q0Q0 



EMITLJTERALCIO); 

scan; 

GO x i t ; 



bgni xbegin 

compoundstatement; 
GO x i t; 



30410000 
30420000 
30 ft a 0000 



30^*0000 
30^50000 
30460000 



I0{ 



I0STATEMENT{W-U j; 
GO XITJ 



30470000 
30480000 
30490000 



• • 



h 



10 

11 

12 
13 
14 
IS 
16 
17 
IS 



19 
20 
21 



22 
23 
24 
2S 
26 
27 



28 
29 



30 
31 
32 
33 



34 
3S 



36 

37' 



39 



4C 
41 



42 
43" 



45 
46 
47 
18 
49 
50 



52 
S3 



S4 

S5 

56 



S12J *TEST 

IF NOT CCONF 
— BEGIN 



UH LI80NLY) THfN 



PRlNTHERHORClba); 

GO start; 

FNDl 



IF LEVELCQUNT NEQ THEN 

PBINTERR0R(81'») EL5E bCAN; 

fF- COUNT GE G CJ THEN P R I M tHKQR ( 6 1 6 } , 



JLL^X- 



If NTl««TESTSUFFERt03 GTR 63 THEN 
PRINTEBR0R£817) ELSE 

IF RLargSTARRAYCMniutmn thf^ 



PRINTERRCRC816) ELSE 
TESTARRAY[NTn:«-A; 
■ IF THISTFST r.t.Q Q THFN 



TESTARRAYtTHlSTEST],trF]«aREALCMAKETAPt)j 

maketapeisfalse; 

NUMBEROFT£STS»gMAX(NUMB£RO^TESTS«THlSTEST<«NTl)l 



Sl3t 



scan; 

scan; 



IF specialchr 

GO START; 



NEQ "J" THEN PR I N ItRHaR ( 81 5 ) ELSE 



junkb»*false; 
booueanexpression; 

CONnlTlnNALSTATrMFNT; 



GO xit; 

S15! X"SUBRQUTINE" 
_^ SURRTINEDEC; 



IF HEAOERC213 GTR THEN XlF NO 
HEAOERC213l«HeAO£«C2U + MAXLEVEL.S; 

fin xtt; . - : __ 



STACK CARD, 



S16J 



3!"CALL" 

scan; 

IK COUNT 



LEQ THfc-.N PRlNTLHRONOSn 



IF W»«WRD(SUBNAMESC03#NEXTSU8) GEQ 
EMITLITEKALC8SSEGOICTCWHCTF3) 

ELSr ., 



THEN 



PHINTERR0R(l6ci); 

scan; 

GO xit; 



S17I %"WAIT" 

scan; 

IF SPgClALCHR 



NEQ "C*' THEN PRINTERRQRC 860 ) J 



scan; 

IF COUNT GEQ THEN PrINTLHrQk C 861 ) ; 

IF SlZEl*TESTbUFFFR[0] GTR 511 ThfcN PR I NTFRHQR C 86 1 ) ; 



scan; 

IF SPEClAtCHR NEQ ' 
EMITCl4>SlZr»0>Qi; 



')" THEN PRINTe«R0R(B60); 



S18» 



scan; go xit; 
x'^comment" 

^HILE NOT 



(SPECIA1^CHR = ";" 



XiTt 



scani 
go start; 

END or &TATEMENTI 



AND CUU^TsO) DO SCAN; 



BObOOOCO 
30501000 
3050UQC 



30501200 
30501400 
3Q 5tf lS0Q 



30510000 
305<i0000 
3053000Q 



30540000 
30550000 



30570000 
30580000 
aObVOOOQ.. 



30600000 
3O61QOO0 
30620000 



30630000 
30640000 
3Q6 50.QM.. 



30651000 
30660000 

3 Q79Q J1QJ1.^ 



3&8G0000 
30801000 
3Qa0?00jQ- 



30802400 
30802500 

30R03000 



30804000 
30805000 
30806000 



30807000 
30808000 
■■^nBQ9nnn 



30810000 
30811000 
3Q8120QQ 



30812100 
30812200 
30612300 



30812400 
30812500 
30812600 



30812700 
30812800 
3Q81290Q 



30813000 
30813100 
3 0813200 



30813300 
30813350 
30813400 



%**********************••****•****•«******«**********************«** ****30820000 
PROCEDURE INlTIAtUE; 30830000 
Bfc:GI N 30840000 



UA8EL xit; 
STREAM PROCEDURE 
BEGIN 



BOCMSG(B#M,F»0); VALuE M,F*0; 



30850000 
30850100 



±P 



>T 



Dlt = B; si:=LOC <^; 
DS:=2 LIT " "; 
7CI F SC=" " TH£ N 



1 Sis=si+i; 
JUMP OU T lli^l i JS» = CHR); 



30850300 
30850350 
3Qe i?0AQ Q, 



1 

2 
3 
4 
6 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 

he" 

,7 
IB 
19 



DS»»LIT 'V 

sii«LOc f; 
7(ir sc*'* 



" THEN JUMP 



OUT ELSE OS»»CHR)J 



30850500 
30850550 
3 Q8 5 060Q 



20 

21 



DSj*22 lit "(SIHPlJ CaMPlLli\G foh "; 

sii«LCc o; 

fl(TF Sr = "Q" THTN di;:;51»1 ELSF Db:=CHR); 



30850700 
308508C0 

3n9b09nn 



»»i»f 



dsi»lit 
end; 
cqmpi un cutrue; 



TIMElJsTIMEd); 

BOCMSGCOUTBUFFERWMFIO'PFIU/ IF CO^F THtN "cONF" ELSE 
IF L I B QNLY TH E N "SYNTAX" £LS E I F aAVETJ' i THEN 



30850950 
30851000 
3Q85U0Q. 



30860000 

30870000 

-3Q6 70ia.Q. 



"LIBBARY" ELSE "QO"); 
IF CSWlTC*»«0 THEN WRlTE(TWXCUBLJ)i 
WRI TE(CFI LE f9*O UTB y FF EH[*3J; 



30870200 

30870250 

■ 30870300- 



NEXTSEG»=LEVELCaUNT:=:o; 
INPUTBUFFERClO]: = 3"7 37 7 37 3/'3 737 73"; 
RnTATECcn8EADDRC.TNPUTBUFFEH[,t0l UjiiMtTf X )i 



m0vec1#infutbufferc103#inputbufferc9] )'* 
oollrei-false; 



30880000 
30VOOOOO 
30910000 



30930000 
30940000 
309S0Q00 



22 
23 
24 
25 
26 
27 
28 
29 
30 



FILL RESERVEDC* 
"INPUT " 
"DISPLAY " 



WITH 



31030000 
31040000 



"DO 

"FILL 

" RnT ATi 



31060000 
31070000 
31060000 



31 

32 

33 

34 

35 

36 

37' 

38 

39 



"SHIFT 
"COMPARE 
"END 



"LABEL 

"GO 

"STOP 



31090000 
31100000 
31U0O00. 



"BEGIN 

"READ 

"WRITF 



31120000 
31130000 
31UOO00 



3U50000 
31160000 
3U yOQ OO 



"SPACE " 
"ERASE " 



31180000 
31190000 
3l2QQ00n 



40 
41 
42 



"BACKSPAC" 
"TEST " 



31210000 
3lii20000 
31230000 



"PRINT " 
"SUBROUTI" 



31231000 
3123U00 
31231200 



46 
♦7 
t8 



"WAIT 

"COMMENT 
FILLMODIFIERSCCQMPAREBJFF); 



31231205 
31231210 

3 1240 000 



49 

so 

51 



FILL BNAMESt*J hITri 

"OCOOE 
THIST£STI»*i; 



"#"1 



'; 



X 1401 3 1240100 

XI 40 1 3 1240200 

31440000 



52 
53 
54 



WBlTE(C0EFlLE#30*UUTBuFFEH[*]); 

segnq:=i; 

NEXTSUBtnNEXTLABEL;=S:-A:=NEXTUNlTJ=NEXTPATTERN jso; 



31450000 
31470000 
3H80000 



ss 

56 



BUFFERScC#0]I«3"1000 777770UOOO"; 
8UFFERSC 0» U «»3" 177 ^77/ 7 7 00000"; 
NEXT6UFFlg2; ' 



31490000 
31500000 
31510000 



• • 



h 



10 

11 

12 
13 
14 
15 



16 
17 
18 



19 

20 



22 
23 
24 
2S 
26 



28 
29 



31 
32 
33 
34 
35 



37 
38 
39 



40 
41 
42 






46 
«7 



49 
SO 



52 
M 
54 

55 

56 

5I_ 



BUFFERS [0» 2] ta3"7777 /"OOOOO"; 

(MOVE C M AX BUFFS-3* BUFF t.RSCO>ii], BUFFERS COO] ); 

LABFLSC 03 I al''77777 7/^77777 /77"i 



PPI»3»7777777777''; 

RBUFFJStMPTY; 

NUMflER0FTESTSt8nBUFFSl2F:8Qi 



MOVECHAxLABELS-l^LABELSCOj^LAaEuSul J)/ 
END OF initialize; 



xit; end of initialize; 3 

%*****^l^l***^r**1l***■k^t^l1,■k*■k■k^c■ll*^l^r**^t^t*1'^,*1,1r^l■K^,*1t^!^l*■k*■k*^,1,^,^l•k^,*^,^,1,^,^,^,^,^,1,^,^, 1,2 
PRQCEDURF wRAPUPJ ~ -i 



PROCEDURE wRAPUP; 

BEGIN 
LABri XTTJ 



INTEGER LLML; 

stream PROCEDURE EOCMcjGC B/M,F ,E ) ; VAloI^ M»F,E; 
BEGIN 



lABEL L*XIt; 
LOCAt x; 
Ollaflf : 



SlJsLOC m; si;=si+i 
dSjs2 lit " ••; 

7(TF Sr«" " THEN 



^UMP ,OUT FL.SE t'lSis^HR); 



oSt.tiT «/«; SiistQC f; suasi + i; 

7(IF see" " THEN JUMP OUT ELSE DSIsCHR); 
pSlafl LIT " (S T MP L3 !!J- — _- 



SI »=LCC E; TALLi^Jse; 3 

8<IF SC»"0" THEiM BEGIN T ALLY : = T ALLY + 63; 3i: = Sl + l; enq 3 

EL.'^E jump out TU \ )'f i 



J^ 



dS«»2 LIT "NO"; 

GO xit; 

XtaTALlY? pStaX CHR* 



XITJ DS»s13 lit •• SYNTAX EKR3*-"; 

end; 

STRFAM PRflCFnURK HUFF(£ txMLSb ( H . S I /F . hUFF ) ; VA^UE: hi ^ S 1 



ZL 



BEGIN 

sitaLoc b; Sna:Sl+7; OIIsBUFF; 

IF SG»"0'' THEN , 



DS:«14 LIT "COUt BUFFER IS " 
ELSE 
I F SCg"r THEN 



ELSE 



DS»»i8 LIT "UTILITY BUFFER m " 
BFGIN 



DSI*8 LIT "BUFFER 0"; 

2(DS:=3 RESeT; JCIF SB THEN USJ=SET ELSE 

dsj^reset; SKIP SB)); 



DS»'4 LIT "IS "; 

end; 

SII«LQC size; DSi»4 t)£c; 



DSj-5 lit •' LON^i"' 

Di«»Di»9; ds:=3 fill; 
ENn; 



£MITLITERAL(63); 

SEGDICTtSJlBO&SEGNaCCTFj&ACCTSFi; 

LSE6l»MAXaSE6»A); 



IF LEVELGQUnT NEQ THEN FKI NTHERRQRC 7 J ; 

nt5:»empty; 

FOR NT1>»NEXTLABEL*1 STEP -1 UNTIL OU 



IF NOT BLC(NT2lsLA8ELStNTlJ).Cl»n) THEN 
BEGIN 

FlRSTSCANt«COREADDR(T£STBUFF£R);; 



i)20000 
b3000C 

54onon-. 



541000 
542000 
54 30110 



bbOOOO 
b60000 
57 0000 



580000 
590000 
600000 



600050 
600100 
600200 



600300 
600400 
600500- 



600600 
600650 



600800 
600900 



601100 
601200 



601400 
601500 
6016 



601700 
601800 
60 19Q Q 



602000 
602100 
602300 



602300 
602400 
60 2500 



602600 
602700 
60geOQ 



602900 
603000 
603100 



603200 
603300 
60 3400 



603500 
603600 

6 037Q 



610000 
620000 
621000 



630000 
640000 
650000 



660000 
670000 
680000 



h- 



10 

11 

12 



13 
14 



is" 

17 
18 

19 
20 
21 



23 
24 
26 
26 
27 
28 
29 
10 



31 
32 
93 
34 
35 



36 

37" 



39 



41 
42 



45 
46 
«7 
«8 
49 
50 
51 
52 
63 



55 
56 



C0unt:=8> 

M0VE(l»LNAMt3CNTl]*TLiTE3UFFEH); 
PRTNTHERRnR( 160)? 



END ELSE 
IF NT2.tCF3 
BFfilN 



316^0000 
31*'0000C 

31710000, 



Lss EMPTY Then 



LL»aNT2. 11889]; 

NT4{sNT2.[CFJJ NT3 : =IN T2 , [ 27 :6 ] ; 

NT2t«fl&NT2[?7nUii1/ 



31/20000 
31730000 
3r7<t0000 



WHRE 
BEGIN 



Mft NEO EMPTY QQ 

TF DFRtifiN] THEM nEHtmOllT rMT? . NT ^ , KIT /t ) t 



3l7<»1000 
31750000 
3176Q0O0 



IF LEVELCOUNT»s(iNT6: = EDCC[NT3*i\T4 3),[SFJ-LL 
GTR THEN 
, REfilN 



31770000 
31760000 
31761000. 



ILl*lO-iEAitSEGDICTCNT33 lSS AND Ll.«0); 
fc:D0CtNT3#NTa-13».«Il.8CuE:VEUC0UNT)CCT5CF]; 
IF DEflUfiN THEN 



318/0000 
31870050 
31870100- 



FIND./ 



DEBuGUUT(-lU&(LEVtLCQuNT)i:CTSCF3, 
NT3*NT4-1); 



31870150 

31870200 

■31670300 



EOOCtNT3#NT43!»NT2; 
NT3I1NT6.CFF3; NT^ » «nT6 , CCF3; 
FNnj 



31870400 
31870500 
3167Q60Q 



end; 

fdr nt1»«nextbuff-1 

REGTN 



31880000 
31960000 
31970000- 



STEP -1 UNTIL 2 DC 



IF BUFF£RStO#NTl3.tSF3»0 THEN BUF FERSC 0»NT1 3 . C SF 3 lsl 020^ 
IF NT2l»BUFFERSCO*NTl3<0 THEN 
BEGtN 



31960000 
32000000 
32001000 



08UFFSlZL»=MAXCuBUFFSlZE*\T2.LiF3 )i 

BUFFERS [ 0,NT1 3 !»Abb(NT2); 

FNC; 



end; 

IF NOT ERSTOe THEN 
BEGTN 



32010000 
32011000 
32Qill0n 
32011200 
32011300 

320iunn 



IF PP.CCF] NEQ EImPTY THEN 
WRlT£(C0tFlLt*30*PDEbC[*J); 
FOR PPt^O STEP 1 UNTIL \EXTSE6 



32011500 
32020000 
3 2 30000 



DC 



BEGIN 
SEGDlCT£PP3,CfF3»«S£GNO; 

SEGDicT[pP3.tcr3r»o; 



32031000 
32032000 
32040000 



TRANSFEKOUT(SUtJ = SEGDICT[f'PJ,tSF3*30,cUEFIL£* 

EUOCCPP**] )'* 
SfGND:sSEGNO-K(:>IZE * 29) UIV 30); 



■■;.• EN07, ,„ 
flUFFtRSC0#0 3,CSf 3»»tSEfi5 
6UFF£RSCQmJ.ESF3I»MIN(0BUFFSIZE>1020)j 



32045000 
32050000 
32051000 
32055000 
32060000 
32O6O1 O0 



TRANSFER0UTCN£XTBUFF#30#C0EFILE'BUFFERSC0»*3); 

transferout(nextbuff#3o*coefile^bnames[*3); 

HEA0£Rr03tgSFGNJ; 



32060200 
3206G500 
32061000 



TRANSFERQUT(NEXTPATTERN*30#C0EFlLE*PNAMESt*l)i 

TRANSFEROUT(M£ADE«t23l«!NEXTPATTERN/30*COEFIL£» 
PATTFflMSfq.*!); 



32070000 
32080000 
3209Q0 QQ 



32100000 
32110000 
32120000 



SEGNQIsSEGN0+2x((NEXTPATTERN+29}U1V 30); 32130000 

TRANSFERUUT(HEAD£RC3JJsNLXTS£G+l*30,CQEFlLE*SEGDICTt*3); 32140000 
HEADERri ]:cnfxtuMt; ^gMQpn? 



IF NCXTUNIT gTR ANO NOT CONF THEN 

BEGIN 

TF TAPfOUATED THFN 



32140010 
32140020 
32140100 



40 



• • 



12 



16 
17 
18 



20 



22 



24 
2E 
26 
" 
28 
29 
30 
31 
32 
33 
J4 
35 
36 
37" 



BEGIN 

UMTABLtCl'Q]ssljNITSCl*UMT]; 

^^CVEC 1 y UN ITS [ OmjN I T,„1 1 liN J T AHL h (, 0< 3 ) I 



32U0200 
32140300 
32HQflnO 



WRlTECCOEFlLE#N£xTUNrT,UNnAeLEC0«*3); 
WRITECCOKriLE«NF.XTLINjT,l.lNlTABLE[:i**ni 



end; 

if thisttst geq thln 

TESTARRAYrTHlhTt^T] 



32H0500 
32150000 
32160000- 



iFnuht-At (MAKFTAPE)* 



32160100 
32160110 
3216O1P0 



IF NUMBEROFTeSTS GTR THEN 32160200 

TPANSFERdUT(NUMBERQFTESTS+W30*C0EFaE#TESTARRAY); 32160300 

SFriNaii;SFfiNQ»l4{NFXTaEfi niV 30 jjt : aallODILQ.. 

2XREALCNEXTUIMIT GTR AND NOT CONF )* 32180000 

REAKCONF ANU T HUE ix ( ( i^uMBEHUFTtSl S + 30 )DI V 30); 32180100 

HEA0ERt6Jt?NEXThiiFF; ^ ^ 32<!10000. 



HEADER t/3l«RtAL{MAKEtAP£)«LSt:G[CTf^ 3; 
MAKETAPE* ■false;; 
HEAQERCfl}i«NUMB£RQFT£STS; 



32220000 

32250000 

-122600mi- 



HEADER[20]J=NUMHERaFTESTS; 

HEADERt2niaABS(HEAUEHt2i:i)i 

REWI NGCCO E FILE ?/ 



%IN CASE OF STACK CARD.t 



WRITECC0EFILE#30#HEA0|RE*3); 

end; 

REWTNn(r:nEFTlEU ^ 



32261000 
32262000 
322 yOjH?i2- 



32280000 
32290000 
3?3UQQQQ 



IF ERRTQG THEN 

IF CSWITCH NEO G Oh L^l THEN 

__„ IF LAS TERRQH NE^ Q THLN 



32300100 
32300200 
323 00 300 



BEGIN 



WRITECOUTBUFFERC*],UA)/ 
0UTBUFFERtU3>gDECwAL(ABSCLAST£RR0H)); 



32300fl00 
32300500 
32300600 



Wf^ITEdFILEtDBL ] * 1 5' OUTBUKFER t * J ) i 



IF HTOG 



end; 

THEN 



32300700 
32300800 

3,2 3,10000- 



38 
39 
40 
41 
42 
43 



BEGIN 



P»»:0; 
FOR B»»0 



STEP 1 UNia NEXTSEG OO 



Pt»P+S£GDICTlB].LSFj; 
WRITECLFILECDBLJ); 
WRlTECLFlLEtQ8L3*£FF#£RR0RS^CTlME(l )-TIMEnDlV 60); 



32320000 
32330000 
32340000 



WRITE C LF i LEi. Q6L ]*EFF*LRRORb^ (TIME U )-TH 
WRlTE(LFlLEtDBL]#S£GiilZEF*N£XTS£G*l#P); 

write(lfilecdblJ»8aTsf*nextpattehn); 

FOR NTH"0 STEP 1 UNTiL NEXtBUFF"! 00 

nr-r. X kt 



32350000 
32360000 
32 370000 



32380000 
32390000 
32390100 



45 

46 
»7 
48 



BEGIN 

CLEAR(OUTeUFFEb<f 15); 

BUFFERMESS(NTl^bUFFEHSL0*NTlJ«[SF3^aUTBUFFER); 



32390200 
32390300 
32390400 



WRlTE(LFlUEtD8iJ*15#0UTeUFF£Rt*l>; 



32390500 

32390600 
32400000 



49 

50 



51 
52 
S3 



writeclfilelpage]); 
end; 
cqmpilIngisfalse; 



IF PATCHS«ITCH«1 OR InSWITCH n60 2 THEN 

CLO^ECPATGH); 
IF PTQG TrtEN CLQSElTAPEJi 



32410000 
32430000 
32440000 



32450000 
32460000 
124 70000 



ss 

S6 



IF NT@G THEN 
BEGIN 
NTnG>8FALSF; 



LOCK(NEW»*i; 

end; 

IF LSWITCH NEQ QUTSWlTCH THEN 



32510000 
32520000 
3?53000Q 



32540000 
32550000 
3 8550 1 00 



FlND0lTPUT(UljTSkWTCH#UUTSWITCHi = 10); 
EOCMSGCaUTeUFFER*PMfID'PFIU,ERHD«i. j; 
IF CS^^ITCMsn THFN »<RITt(T^X) ; 



3?b50200 
32550300 
32S504QQ- 



If NOT ERRTOG THEM 

BEGIN 
IF CONF OR SAVFIOG THEN 



32560000 
32561000 



9 
10 
11 
12 

13 
14 

9b 
|16' 

- 
18 

19 

20 

21 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ' 

32 

33 

34 

35 

36 

37' 

38 

39 

to 

41 
42 
•3' 



«4 
♦6 
«6 
»7 
•8 
•9 
50 
51 
i2 
53 

56 

56 



BEGIN 



LCCKCCUEFILE'* )> 
WBlTFfCFl[,£f»^UUTBUF FFH f* J n 



60 HETURNi; 
END ELSE 
IF LIBHNLY THEN 



32560000 
325V0000 
32591000 



BEGIN 



32610000 
32620000 
3263000-0- 



WRlTE(CFlL';^V*QuTBUFFER[*]); 
LlBDNLYt=FAL SEJ _^_^ 



60 HETURNU 
END EUSE 
-B E GI N 



32640000 
32641000 
32O5Q0QO 



WRlTE(CFlLt;*9>0uTBUFFERL*]); 
GO MCCLRUN> 



32660000 
32670000 
32660000 



FNn; 



■ENDJ 

cqnfi»false; 

WRITE(CFILE»9*0UTBUFFfRC*J?; 



32680100 
32660200 
32680 3 



32681000 
32690000 
3g69 lQQQ 



XITI end; 32720000 

X ######«*# COMPILER BLOCK C00i.it »»» *»»»»# 4 It »» It »»tf»u«»g«lt« «»#» Kit »it1HHHt«»ng» 327 ^OOOO 
I N I T IA U IZEJ ^ ?7aQnnn 



while word neq mgeb do scan* 
compoundstatement; 

WRAPUP; 



tPOP OMIT 

»i>ET 0MIT = N0T OMITCOmPILER 

GO return; 



32750000 
32760000 

Az nu ooQ 



32770100 
32770102 
32^70104 



*POP OMIT 32770106 

end; 32780000 

%#»»«#g»»»END OF COMPILER BL0CK»it»$*91tM«$$gg»»t»»*$»$»»»»»«t$»*M»i1Hl»*»1t^v790()Qn 

r-TKiteiini-r-. ,> r, ,. 



FINISHOFFI 

GO RETURNi; 
RUNTAPETESTSt 



MAKETAPE«»TESTARRA¥t0 3.C27}6 3a0l 
TESTINX»»TEST»a*i; 
MCCLRUNt 



32800000 
32810000 
3^92QQ0Q 



ERRORt«ERRORSt«o; 

IF NOT TAPETEST THEN M AKET APE J = BL C Ht AOERC 7 ] j ; 



33020000 
33030000 
3304000Q 



33050000 
33061000 
3 306 1001 



COMMENT THE FOLLOWING GODE READS THL iuFFER TAiLE imO 
COMPARFBtlFFf*!. IT tS SFQUlRFh Tfl pf IN C^Rf 



PRIOR TO ENTERING THE INTERPRETER BLOCK 50 THAT 
THE SIZE OF THE BUFFERS MAY BE DETERMINED; 



33061002 
3306 I 005 
33061010 



33061015 
33061020 
33061025 



33061030 
33070000 
3 39900 00 



READ(CODeFlLECHEAOERtC3 3#NTHpH£ADEHC6 3*COMPAREaUFFt*3); 

READtCODEFlLEiJ 

FOR NT2«'»NT1 STEP 1 UkTIL 7 DO CQMPaREBIFF [ nT23 « »0; %H0533090000 

Xl5gi33l00000 
ai<t»l|(»)IK<HI()K INTERPRETER RLOrK DECLARATIONS STaHT HEREK»<tilHHIt*l>#tf <>#»»»#»»»»# 33 160Q0Q 



BEGIN 

SSET OMITsNOT qmitikterpreter 

GQ ret urn; 



33170000 
33170100 
33170200 



IP 



h 



9 
10 
11 
12 
13 
M 
15 
16 
17 
18 



19 
20 
21 
22 



23 
24 
25 
26 
27 
28 
29 
» 

32 
33 
}4 
35 
36 
37 ~ 
38 
39 
40 
41 
42 
43 
I (4 
45 
46 
47 
•8 
49 
50 
51 
52 

;3 

>4 

95 
96 



SHOP OMIT 

ti>ET UMlTaQMITINTERPRETER 
DtFi NF IF L= ^ 2>6#* 



SREG»LEVELCOUNT#' 

IBUFF»C0READDR(CODE)## 

DBUFF»CQREABORfPATBUFFCn)#. 



331/0300 
33170^00 
33lH00nji- 



CaDECC0DEl]=EDCCr.3#cUDEU*' 
LF»2«3)»* 



NR0FBVAR«4#, 
MAXSWITCH»8#; 



XiaO43318lO00 
33190000 

22AQ.QAQSI 

33201000 
33201100 

JUjiSiSZ-QSl 

»140633201300 
33210000 



SAVE ARRAY 

B2tO»CQMPAREBUFFC2].CSr]+13^ 
.„ B3[OtCOMPA REBUFFC3].CSF3fn> 



B« 1 I COMP AREBUFf C 4 ] , C SF 3 + 13 » 
B5C0JC0MPAREBUFFCS].CSFHn» 
B6 to i C0MPAREBUFFC6]aSFUl]# 



"B7C0JC0MPAREBUFFC7]»LiiF] + n; 



COMMENT THE ABQVE ARE BUFFERS 2-7; 



• *i»***ilr***ilr.»*****»******i>n»JH»iHt**33220Q0Q _ 

"332 30000 " 
33240000 

^ ^ ^_,.3i2l£jCLaQ.^... 

33260000 
33270000 

uioocmo... 

33290000 
33290005 

ail9,Q.QlQ„.. 

33290015 



%**1H,iffk***1i**ii *******■), 



SAVE ARRAY 

PATBUFF[0»COMPAHEBUf'''tl].£SFj + l]; 



33290020 

335350000 



COMMENT 



PATBUFF IS BUFFER NUMBER 1. IT IS USEU FOH HEADS* WRI TtS* 
DISPLAYS, PRINTS* WHEN NO bUFFfR PaRT iS SPECIF lEO. H 

^ g Ai cn iicern rrio truoiiaADv viTnciA/ir m.Q.inr .,UTt--»r. a t,j 



s At „ .sn iiSFn FfiB TrMPnuflflY STnKAf;r in^iR>\r, gJ^T^'TS ^NP 
0TATE5, DURING ReAD'J WhIch EXPtCT A PARTICULAR PATTERN* 

ATRIirr UmnQ a r>nuv lie TU;. QAiTtD. rt-iD m.iO*L3T«ni. 



335b2000 

33&52010 
33S32015 
3B5faieQ2Q 



PATBUFF HOLDS 



A CUPY OF THt pAlTERisi FOR CUmPARISqn. 



33bb202::2 

33552030 

-13552035 



ARRAY 



ED0CC0JHEAUER[3]-1 ,0!IF NTl : =HE ALjLR [ ? ] , C FF ] = o ThfcN 5II ELSE NTlJ* 



JtEPgC HOLDS THE CODE SFGMEnTS* ^liEN A NEVi CUUE SE(i 



STACKCOUF NTl:=HEADt.R[2l3»0 ThEK MAXlEVlLS' 

it 



335520<»0 

********************************************* 33560000 

33570Q0Q 

3357IOOO 

33571003 

335 7 lnin 

33571015 
33571020 

335710?5— 

33571030 

%14U4335a0000 
33 5 6 001 



^REQUIRED* IT IS READ JNTO THE APPROPRIATE EO«C ftOW. 
XSEGS ARE NOT BROUGHT IN UNTIL REQUIRED. SEGOICtC*] . 
XUSFn TO InFNTTFY "PRrSFNT** ANp '*NQN«PRFSrNT" SFnMFNTS 



15 

CODE 
IS 



1 ELSE NT!]* 



XSTACK IS THE PSEUDO-STACK, SREG POINTS TO 

XTHE NEXT AVAILABLE WORD IN STACK* THE FORMAT OF A 

XwnRn TNI «;TArK ts a.c; trni I nuis? 



XWORD 

X 

X 



IN STACK IS AS FULLOWS: 



33580002 
X140433580005 
XlO0i>335e0010 



X 
X 

JL 



» 0* ikdicatfs That luqi-' at next lo^sfR llvfl 

IS NOT IN ITS FIRST TIKE ThRU 
• 1* PREVIOUS LOOP IN FIRST TIME THRu 



%l404335a0015 
33580020 
3356002 5 



X 
X 
X 



X 
X 

X 



C2i5l « . 

[SF ] a RELATIVE ADDRESS FtJH SUBROUTINE EXfT 

[18163=! SEGMENT NUMBER FUR SUBhOUTlNE EXIJ 

[24(93a RELATIVE ADDRESS Of END OF LOUP OH SUBROUTINE 



33580030 
33580035 
33580040 



CCF I' 



33580045 
33580050 
33580055 



IF [ltl3 THEN 1^ 

OTHERWISE* REMAINING LOOP COUNT FOR 



33580060 
33580065 
33580070 



l< 



56 ' 
57 



h 



10 

11 

12 



US 

lie" 

17 
IB 



19 

20 



21 
22 
23 
24 



25 
26 
27 
28 



29 
30 



31 
32 
33 
34 
35 



36 

37' 



38 



42 
43 



45 

«« 



49 
SO 



52 
53 
M 



SS 

56 



% 

JL 



PHtVIOUS LOOP 



UNITABLECOJl#OlMAX(HtADEKClJ-W0n# 

% 

% 



% UNITABLE CONTAINS INFURMaTION ABOUT LlMTb ATTACMtU TO 

% ONLINE/MAINT. AT PRtSENf^ UNlY G^E TAPE UMT IS ATTACHtU 

a; AT A riME (this ro hunf to cui nd^N Ofv th^ ampu^t nr 



X 

X 

JL 



SAVE CORE REQUIRED BY THE PROOKAM, CONSEQUENTLY* 
USE OF THIS AiRAY I S cjOMEWHaT INEFf |C lENT ) 



THE 



X 
X 

% 



UNITA8LEC0'0]»MNEM0NIC 
UNITABLECl'O] 



FOK UNIT 



X 

X 

JL 



CFF 3»HAR0WaRE UNIT NUMBER FOR UNIT 
CCF ]»L0GICAL UNIT NUMBER FOR UNIT 



X 
X 

-PAIJ ERNS .[ Q?MAX(HEAn ERCgJ- W , 0) J 



X 

X 

JL 



PA TTFRNS[ P 3 «; 



X 
X 

JL 



[l«n = REGULAR PATTERN 
=1 TAPE LABM. PAITERN 



X 

X 

JL 



t2»3]»C*PATTERN NOT Ih CORE 
NEQ 0* BUFFER INuEX OF 
PATTFRN P : - 



FIRST BUFFER CONTAINING 



X 
X 

JL 



X 

X 

JL 



[5»3]a0/ PATTERN NOT UN CORE 

NEG 0* BUFFER INOEx OF LAST 

THIS Pattern 



eUFfcK CONTAINING 



REMAINDER OF WORD SAME 
(PATTERNSCO^PJ) 



AS GENERATED BY COMPILER 



8UFFERS[0:hEADERC6]-1 J, 

X 



XBUFFERSC0]= 
X 



X 
X 



CCF 3»0 



X 
X 

XBUFFERSIB3S 



C0J8]=0 

[SF ]=snE OF LONGEiJT 

C FF ] = 3'V7777" 



COUt SEGMHI'mT 



fB NEQ Q) 



X 
X 

X 



COt23so 
t2t3]«LINK 



X 

X 
X 



TO NEXT dUFFER CQi\T A I N I Ni*! Samf PATTERN 



X 
X 

JL 



(0 IF NO PATTERN IN BUFFER OR BUFFER IS LAST 
WITH PATTERN) 
E5l33«LlNK TO PREVIOUS SurFfR CONTAlNlNS SAME PATTERN 



X^E- 



X 
% 

% 



(0 IF NO PATTERN IN BUFFER OR BUFFER IS FIRST 
WITH PATTERN) 
3SSTZF OF RUFFFR IN wORnS 



CFF J-a**????/", NO 
NEQ 3"7777?"» 
IN BUFFER 



PATTERN IN BUFFER 

INTERNAL PATTERN NUMBER Of PATTERN 



335a0075 
33!380080 

33i?aonflb- 



33bV0000 
33iV0005 



33bV0015 
335V0C20 
335V00y':> 



33590030 
33590035 
33^S>00^Q 



335^0045 
33590050 
335VQn'35 



33590060 
33590065 
33590070 



335900/5 
33590080 
33600000 



336OOOO5 
33600010 
336UOOIS 



33600020 
33600025 
336U0030- 



33600035 
33600040 

-3 36 0^ 5 



33600050 
33600055 
3 360006.a 



33600065 
33600070 
33ftOn075 



33600080 
33610000 
3 3 6 10QQ5 



33610010 
33610015 
3361QQ2Q 



33610025 
33610030 
3361003^ 



33610040 
33610045 
33610Q5Q 



33610055 
33610060 
3 361 65_ 



33610070 
33610075 
3361 OQBO 



33610085 
33610090 
33610095 



33610100 
33610105 
33^10 11 



3 

4 



55 

56 ( 

57 



• • 



1 

2 
3 
4 
S 
6 
/ 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 



23 

24 

2E 

26 

27 

28 

29 

30 

31 ' 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



40 
41 
42 
«3 



46 
♦7 
•8 
49 
50 
51 
52 
53 
54 
S5 
56 



tCF ]=CO«E AUDRtaS OF BUFFER 



SEGDICTtO»HEADERC33-n# 

% 

% 



33610U5 
33610120 
3361U12^- 



XSEG0ICT[S]» 
% 

J ton3=o 



33620000 
33620005 
33620Q 10 



X 
% 

JL 



ElMJaO, NORMAL SEGMENT 

»l, SUBROUTINE SEGMENT 



336<i00l3 
336«:0020 



% 

% 



% 

% 

JL 



CSF JsSlZE OF SEGMENT IN wURQS 

CFF 3*HecORC 'MUMBER IN COOt FILE WH£R£ SEG STARTS 

CCF ]xQt SEGMENTS, Nfir PHEjLNT 



33620030 
33620035 
3i6^onan 



.3»77777«, S£(JMtNT PfiESENT 



336200^5 
33620050 
3362QQ55. 



TESTDlRECTORYCOtHEADERCa]], 
BVCQJNRUFBVARX{HEADER[6]-1)-1J» 
-X flV CONTAINS 



33620060 

33620065 

-33 6 2Q07-Q 



% 

% 

JL 



WRDCOUNT* 

100* 

RFSUI. T DESC* 



33621000 
11140633622000 
3 i U»6 33A224i^ 



% 
X 

JL 



2xREAL(SlZERR)+REALC COMPARED AT A) 
FOR EACH BUFFER (EXCEPT BUFFER QU 



IU0633622020 
XH0633622030 



PNAMES[0«MaX(HeADERC2]-1#0)3, 



JL* 



itl40633622050 
Xl'»0633622060 

33630000 
336<»0000 



BNAMESt0>HEAeERt63-n; 336<»0000 

*P*it'^***P*** if*** ********* 1c***1,*ik*****li***** l,i,*it1,****l,**it***i,4,**^^ 

INTEGER P#B*SIZE,U*LCjOPC(JUNT*TAlLY*wRDCOuNT' >8 H0633660000 



X 
% 

% 



% 

% 

JL 



P AND 8 CONTAIN THE PATTERN AND BUFFER BEING USED 

THE CURRENT I/O OPERATION 
SIZE AND U ARE USED FOR TEMPORARY STORAGE 



In 



"LOQPCnUNT CONTAINS THE "nUM6LH"qf TIMES THE CURRENT 
LOOP HAS YET TO bE t^ERFORN'LC (VALID ONLY IF 



% 

% 

JL 



LOOPCCUNT.[HlJ::=Oj 



TALLY IS TME USER VARIABLE "TALLY" 

WRDCOUNT CONTAINS THE WQRD CUUnT FROM THE [.AST READ OH SPACE 

norO * T T fiki 



33660005 

3 3660010,.,, 

33660015 

33660020 

336600 25 

33660030 

33660033 
3366QQ4Q 



QPFRATTON 



% 

% 



33660045 
33660050 

3^660n%S 



33660060 
33660065 



* 33660065 

%*********•**•*•*••** <,»»•••••* <c,i,*»************inic***iHr***iii* A ••••♦•••••••»33661Q0 

FORMAT INVUNITCINV UNlT«-")# ' ~— — — — - — 3366U00 

DASHX/gC""))* - 33661200 

N0TD0NE("TEST i"»I3^" NOT liiUN (WRITE l0CK)")# 33661300 

EOTESTF("eNd OF RESULTS FOR TtiST »'%J2i' 33661400 



EO _ . . „ „ . . _ 

ERRSFdb*" ERRORS DEFECIEO")* 
UCHANGEDC'TeST UNIT CHANGED* TEST TApfe. 

ir At "r 1 1 I iL« / M F* 4 1 IT r* n -r A I . \j M « 



NOW UN 



.A3) 



INTALLYC "ENTER TALLY"), 

OTALLY ("TALL Y* ",I8)* 
INVTALUY<"^rNVALlD i/6 SIZE»"Vl8»'*ISg»/l2*"#A«:">I3)# 
INVTALLYK 10(" *♦')*"- IN VALID I/U SI ZE = " * I U* " ! S = 'M 2»", As'% 

T 1 . It " . 7 ^ / »• * 'M W 



33661500 
ail40533661550 



33661600 
*140633661650 
33661700 



13," 'V73(")K")), 

INTALLYERRC'INy ENTER TALLY* S 



-n 



1 2 > " / A = 'M3) 



INTALUYERRI<10{''#"),"INV ENTER TaLLYj Ss^'MZ*", A^^MS* 

81C#'')). 
STKOFLOWC^^SIMPL STaCK OVEHFLQV^t S » "#I2/»* A » "^IS)* 



33661600 
33661900 
33662000 
33662100 
33662200 
33662300 



•"!• 



2 
3 

4 
5 



>T 



STKaFLOWi(lQ("#"),"-SlMPL STACi\ DVLRFLCIn: b = "W2» 



33662400 
33662500 
33602600 



"«••♦); 33662700 

1 ********************************************************** *************33670000 
RFAL JUNK* iNSTRUCTTnNf IQPI » S AVFRr S AVEH ,1 lODi . 11^0633680000 



10 

11 

12 
13 
14 

pB 
il6 
17 
18 



% 

% 

JL 



% 

% 

JL 



s/UNK TS WSFD Fn>-< TE; MPnH Al ?Y^TnR , Ai jF 



% 

% 

..JL 



INSTRUCTION CONTAINS THE. SIMPl INSTRUCTION CURRENTLY 
BEING EXECUTED 

inD] nONTAlNS THF SFCniSin WORD nr THF ntRHFMT I/n TNfSTRnrTTHM 



% 
% 



3368000b 

33660010 

336flQQ.L5- 

33680020 

33680025 

. — , . 33680030 

SAVER CONTAINS THE LAST CNOi\-R£TRY) RF.bULT DESCRIPTION 336d0035 

SAVES CONTAINS THE VALUE QF "S" WITH KIHaT ENTRY INTU ST ACKX iA0a336eO0a0 

■jgOD CONTAINS THF I. AST (^^N-HFTHY) mf.) ^^6«on^s 

«1A0433680050 
XH0633680055 
• *••***»•*»***********•** ****************»**»3369Q0nfl 

337U0OO0 

33700005 
33 70001 



y****i)r*»****ilr*iHf<Hr ********* 



BOOLEAN TOGGLE'S I ZERRMABLERRESENT; 



19 

20 



ajTOGGLE IS The user VARIABLE "TUGGLE" 

XSIZERR IS TRUE IF A SiZE ERROR UCCURED ON THE LAST I/O 

a t T A B LE PRESENT IS TRUE IF TH >- : PATTERN A ND Bl i FFER NAME B LOCKS 



33700015 
33700020 

asypoozs 



22 
23 
24 
25 
26 
27 



% 

% 

JL 



HAVE BEEN RF.AU INTO PNAmE-'jL*] AND BNAMESC*] 



LIST 
UNLfUNAME(UNTT)). ^ 



33700030 
33700035 

33?'0Q0^0 

^***************33700l00 
«1«0633700200 
UJMialMlUiL 



28 

29 

30 

31 ~ 

32 

33 

34 

3S 

36 

J7~ 

38 

39 

40 

4r 

42 
43 ~ 



TLLYCTALLY) 

PROCEDURE GETSEGMENT(S£oMrNT); VAlUl SEoMlNTj InTlGkK SlGMFnT; 



%HU633''00400 
******337l0000 
3 37f iO Q00 



BEGIN 

COMMENT IF SE60I 

DISK ANQ 



CTCSEGMENTJ.CCFI = 0* SEGMENT IS REAO IN FROM 
SEaOICTE5EGMtNT3.CGF3 GETS EMPTY* S REPLACED 



BY segment; 
IF (JUNKS=SEGDICTCSEGMENT] ).CCFJ=0 THEN 
BEGIN 



33730000 
33730005 

3373OOIQ. 



ssT-aoois 

33739000 
3373910 Q 



read seekccooe 

transferincjun 

SEGDICTCSEGMEN 



FiLtCJUNK.CFFn)* 

K.fSr 3#30*COOEFII-E»EOac [SEGMENT* *J 3; 

T3tsJUNX4EMPTYCCTG3; _„___^_^ 



33740000 
33750000 
33751000 



S: 



lqckceooccsegment**] )i 

end; 

■segm e nt ; 



337t>1500 
33752000 
3370QQQ0 



4S 
46 
47 
48 
49 
50 
51 
62 

a 

S4 

5S 
S6 



end; 

X***i***i******* ****** 

PROGEOURE STARlAPElQCliD>RESULTM VALUE fODi REAL lOOtRESULTl 



'**********#**•■■**,*♦*********#,****♦***■****. *'* * * * * * 



33770Q00 
******33770005 

: 3 3 ?yooiQ 



forward; 

X******iit****«i^****** 
REAL PROCEDURE INSTH 



*********************************************** 



337/0020 
******33780000 

337VOQ0Q 



BEGIN 

COMMENT INSTR IS 

: EPOC Aj^o 



RESPONSIBLE FDR TAKING. INSTRUCTIONS FROM 
PASSING THEM TO DThER RQUTINES. INSTR 



33800000 
33800005 
33800010 



HANDLES BRANCHES* LOOP ENTRY * AND SUBROUTINE 
ENTRY AND EXITt IT ALSO PASSES OVER NOOP (ZERO) 
I n STR UC T T CNS . riMSTR RETURmS Trir nEXT If^STRUCTIDl^ 



33800015 
33800020 
33800035 



TO BE INTERPRETED; 



LABEL N£XT«XTT> 



338U0030 

33800035 

Itlfl0233ai0000 



• • 



2 
3 



DEFINE I«NT2il'*SS = NT3<'»AA=:Nr'4#^TYPE = NT5#. J3NT6»; 
SSET 0MIT=0MIT OR NCT DEuUo 
STREAM PRUC&DURE nUrtUt,&(N»Ara)^ VALUi NfAfBj 



BEGIN 



Sn*LGC 






;*;U»0;ci3 3BU000 

338niOC 

33ti,a^oci 



end; 

PRQCEDURE 



reset; skip SB)); 

nERIJriniiT(T,S»A W ValUL TyS^a; bFAL T: TMFft^H Syy 



33611300 
336iU00 
B 38 11 500 



33811600 

33811700 

a38UBQ0 



COMMENT 
fl ffi l N 



OEBUGOUT PROVlDEij A TRACE ON 
DEVICE IF DEBUG IS SET TRUE; 



THE OUTPUT FitE 



13 



REAL junk; 

CLEARC0UTBUFFt.R,4); 

EDlTClMrUUTBUFFLR CU^QM ^J UNK^JUNK^O j; 



33811805 
33811810 
3 3811900 



16 
17 
18 



0CTAOES( 3iS» II*C0REa0DRC0UT8UFFer ) ) / 
0CTADESC3,A»8l.(l) OR BLC3«^0000Q")); 
WRlTEfQUTFI*ft>ntJTRUFF£ff*3); 



33812000 
33812100 
33812200 



33812300 
33812400 
33S1250Q 



end; 



SPQP 

next; 



OMIT 



19 
20 



»SeT 0MIT«0Mlt or NOT DEeUG 

OE8USOUT(CODEtA3*S»A>; 
SPnP OMTT 



33812600 
33812700 

33820U0U 



23 
24 
25 
26 
27 
26 
29 



IF I!*CQOE[A]=0 THEN 

BEGIN 
A i«A-H; GO NEXT ; 



33820100 
33820200 
33620300 



END 
ELSE IF 

BEGIN 



33830000 
33840000 
338*^0000 



TYpeJ«I.tIFL3«S THEN 



ss:=s; aa;=a+i; 

IF NTllaI»CFFJ»,S 

BE G I N 



33860000 

X140133870000 

33fl/1000 



THEN BE^iIN A}.sl.[scKi; Go NExT^ END ELSE 



32 
33 
34 
35 



GETSE6MENT(NT1); 
A»*I,CSCF3; 

GO next; 



336/2000 

33860000 
3^89onon 



M 

37" 

38 



end; 
end; 

A»=A+i; 



33V00000 
33^10000 
33V20Q00 



IF TvpE«63 Then 
If type*o then 

BEGIN 



TYPE«»MAXSWITCH ELSE 



33^30000 
33^31000 
33V40000 



41 
42 
43' 



IF SREG GTR HEADERCan THEN 
BEGIN 
IF CSWITCH^O THEN wR I Tl( TWX [ DBl J ) J 



X140133V50000 

«U0133960000 

33V61Q00 



<6 

47 
«8 



WRlTEtCFIL£iSTKOFUOW#SNA); 
IF NOT TWKOUT THEN 



Xl4O433y6UO0 
33^61200 
33961250 



33961300 
33961400 
339 »1 50Q 



49 V- 

50 



I^RITECQUTFUDBL]); 
WRITECQUTFICPAGtJ/STKaFLOWl^SNA); 

e nd; c ,q exi t; 



33V6I600 

33^61700 
3 396 1800 



ENDi 
IF SREG*0 THEN SaVeSi^S; 
IF I LSS Q THFN 



52 
53 



S4 
S5 

56 



L00PCDUNT{3LQ0PC0UNT<4AACCTSFUSSC16!42:6]; 
STACKCSREG]«sLUaPCGUNTSlC24«24S9i; 
LOQPrQUNTta^j; SRt-:r,t=SREfi+i; 



33961900 

*140433961910 

3 3962000 



GO next; 
end; 
.i,eifl ]«»typ f ; 



33963000 
X140433970000 
il i Hg4 3398 Q QO0 



33990000 

340QOOOO 

Xn tf l. 34ifla5 0Q 



ji 



m • 



h 



2 

3 
4 
E 
6 
■/ 
8 
9 
10 
11 
12 
13 
14 

;'.5 

16 
17 
18 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 



38 
39 
40 

41 
«2 



43 



45 
46 



»7 
18 

49 
M 
51 



52 
53 



55 
5« 



IF STOPPER NEQ OH JUMKB : = (inULf.rt.U T IMt; ( -2 ) ) THtN 

IF STOPPtRCHECKC JUNKd) ThEN 

BFfilN 



IF NOT CONF THFN I ! s8 ELSE 
IF SREGaO THEN U=sl2 ELSE 
BEGIN 



%140^3A002000 



sregj=i; 
loopcounts=0; 

S> = SAVFS? 



I«»i0i 
end; 

IF HEAOFRrnsO ThfN go XITJ 



X1T» 

ENO; 

instr I s I ; 



j»=coreaddr(stgppeR); 

STARTAPElO(3'M20000000a"6.UNlTAh)L£L,WO:] [ 3 * 26 : 5 ] » STOPPe^ ) / 
WAITC JMOMASK^; _„,„__„ 



stopper«»o; 



Xl«C23^0O«000 
XUU434U05000 

!;i4U43AUO/0C0 

*iaO234OG8O0C 

1tHUa34UU9000. 

X1«0234010000 

*l«02340il000 

Ki4QP,^40i2nnn 

%H023aOl3000 
^140234014000 
a i4O2 34O ia Q0Q 



end; 



X14U234016000 
«1«0234017000 

a:i40P340iBnnn 

34020000 

******l,* ************* *********^,***#3/jOjgQQQ 

~ , 3404Q000 

GO TO S0#; a;l^O434O50000 

X****** ****************************** ***********rlr**jf*************^^^^***^3^050000 

LABEL SOf Sl*S2#S3#S4#s5>S6»S7^00NE^S^^Si0« !K1404340?QOOO 

Sll»S12,Sl3#Sl4#Sl5; %1406 34 080000 

%**************************■************* 



%**********************************» 
D EFI NE N E XT XN STRUCT IO N - 



******************************* ***«*****^*^*^3/(OV0000 

_1Z .O'Sn^^lt^^S l,vSi4>Si:jj ^ 1 406 3 4 1 Q-Qiia- 

*********************** * * * ************* ♦**************3j(j350000 



34530050 



X***************** 

SSET 0MIT*0MIT OR DEBUG j«t3juU3U 

X** *************************************************** *********»*******^t3 45 3Q|00 
BOOLEAN PROCEDURE PA TTEHNGEnEHATURC ChR.s,pATBUFF )> 34b30l50 

VALUE chrs»patbuff; Integer chrs»patbuff ; 34^30200 

CQWMFNT SEE CQMMFNT AT SFQ NR lV650QQ5f _^ 3^53n?'in 

BEGIN 34530300 

X** ***********♦****************#♦***************************« ***********3/j 5 3035Q 

INTEGFR stream PRnrgnuRF STRlNasCAN(FS^LS«PAT,P>MAX,FT»QT)f ^uhiQaaa 



VALUE fs*pat*max»ot; 

BEGIN 
LABEL ?<IT>CHECK^fc.RR/ LflCAL CHR5J 



SI :sfs;dii*pat; 
IF sc**"*" then 

BEGIN STtgST4i;TALI y;«1 i 



34530450 
34530500 
345J 055Q 



IF SC*""" 
END ELSE 
BEGIN 



34530600 
34530650 
34530700 



THEN DS!-cHt< ELSE HtGIN CHRii « = T ALLY ; T aLLY : =2; (iQ ERR; END; 34530750 

34530800 
3453Qfl5n 



OTCMAXCSCIF SCs""" THEN JUMP OUT 3 TO check; 34530900 

DS«*SeT EL^E DS!»RESeT>*SKiP Sb))' 34530950 



MAXd 

end; 
check;if SC NEQ 



SKIP 3 S6l3Cir SB THEN „ ^, ^^_ 

TALLYtsTAt I Ytl")? JUHP OUT TO CHECK); 

F SCa""" THEN JUMP OUT;US»=ChK;TALLY : = 



tally + d; 



ERR I 



IF SC NFQ """ TMFN , , 

BEGIN CHRStsTALlYiTALLYl^l) 

F s r«si ; PAT » *B I ; max t stall y ; siisloc max;di»»et;ds5 «wbsi 



34531050 
34531100 
3453U5Q 



: T A LtY»« nHHS7 _^ 

END ELSE BEGIN Si : = Sl + 1 ; FS » =SI / PA T : =(J I ; ENC; 

XIT: STRlNGSCAN»»TALLY/Si:=LOC FSi U 1 : =lS ; Ub : s'^DS/i i : = LOC PAT; 
nTtap;nsu^<DS? 



34531200 
34531250 

3 4 531 aoo 



End; 

X*****************************************^*****w ******* 
INTFfiFR STREAM PROCFniiffF SC AN f F.S> I SCAN . Tg«iTft « RPD i v.Ai iiF 



34531350 
34531400 
34531450 



34531500 
*************** *********3((g3155Q 

SLSJ 34531600 



• • 






2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 



• 



13 






# 



13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37" 

38 

39 



«0 

41 



42 

43 " 

44 

45 

46 

47 



49 

so 



51 
S2 
53 
34 



55 



BEGIN 

LOCAL nr; label b; 
ni ;=;SPc;n.S8=p lit "o 



si:srs; a: if sc»" •• then begin siJssr+iiGO bund; 

IF SC«ALPHA THEN 

IF SC GrQ -0'* TMrlSl 



34531650 
34531700 
345J.1750 



BEGIN Si J=Si + i;7ALLY!=l;NR;=TALLr; 

7CIF SC QEQ "0" ThlN btiilN S I : =:, 1 + 1 > I ALL Y ! = T ALL Y + li END 
El Sf juivp niiT^; 



34531800 

34531850 

-M5JLLfiflJ3_ 



FS*»tALLY; SI:aSI»Fs; DiUTESTBi OS;»FS OCT; 



34531950 

34532000 

^Jt532Q5fl.. 



END ELSE 

BEGIN TALI YlgltSTt85iT4l ; 



6{IF- SC = ALPHA THEN 
ELSE JUMP OUT)/ 



B 



EGIN SI: = bl + l;TALLY:5lALLY + i;E;ND 



34532100 

34532150 
■>453?9nn 



ELSE 

BEGIN dij»spc;di»9Di+7;ds»schr;end; 

FSiaSi;SH»LDC FSinn^iSnAN.-nStsrtDS; 



SCAN* STALL Y;nR(DIJ=lOC SGANi DS ; =L IT"+" ) > 

end; 



34532250 
34532300 

34532400 
34532450 
34532S00 



34532550 
34532600 

X********* *****♦******#♦***#**** ******^* *****#!,************ *****^t*^ 

STREAM PROCEDURE PROPOGATECP*sJUNi*RI#CQUNT^RlMODCOUNT); 34532750 

uALiir »T . rniiMT . DTunnrntiKiT ! '?Zi539ft0fi 



VALUF Rt*CQUNT«RlMQQCPt]NT; 



BEGIN 

LOCAL T*TRI.TRMC/TC; 
ST;al DC RI ; .<;l!a.ST^<Si 



^OJ-aLQC Ri ; ■Si{».ST46i nit=iiir. THi; nrt=nn-7; Qs;=r.HH; 

sijwLOc rimodcount; siissi+6; dis«loc trmc; oii«di+7; dsj«chr; 
siJ«LOc count; snfeSi46; di«*loc Tcj dissdi + h osjkchr; 
sna»p; niiaioc Trpsiawnsi 



34532850 
34532900 
3453295-Q,. 



dijsjunk; si»»t; 

TC(SIJ«SI-32; SlJ = 5l-323; S I : = S I -COUNT; 
TccDS t832 chb; nS» = 32 rHt^^; n&; = cuUNT r.hw; 



34533000 
34533050 
34i33lOQ. 



sn«LOc p; dm»t; sitsjuNK; 

tri(2(32CTccdSis32 chr; 0S»*32 cmH); dsi«count chr; 

Tc(sn«si-32; sngsi-^32); si t«si-couNT)3}; 



34533150 
34533200 
34533P5Q - 



RlfTC(DSi=32 CHR; DS«=32 ChR); OS'scOUNT chR; 
TC(SI«=SI-32; si«=si-32); si:=si-cou:\T); 
TRMC(DS»»3? chr; CS!S3;: r.HR); 



34533300 
34533350 
3453 3400 



dsj»rimodgounT chr; 

TtsDi; Dn«p; sn«LOC t; os»»wds; 

e n d; 



34533450 
34533500 
3453355.a... 



34533600 
34533650 
34533700 



end; . . ^.^ ^^___ 34533700 

%*****^^***^•1l*^r1l**1,1,■k■k^,^,*^,1,^,^,^,^,^,^,*■tt*^,*^,^,1,^l1,^,^,^,^,^,i,1,^,^l^l■k*^,^,■k^i^,i,^,1,^,^l^,1,^,^,^,^,^,^,^^^^^^JafQ 
STREAM PROCEDURE Rl PPlERC P» Rl » I NCR ) > VALUE RI»Ii\CR; 34533800 



BEGIN 



LOCAL TP#B#TRII 
% 

SlflOC Rl; Sn»Sl46; Olti>L0C TRU PHCDH.7J DStgCHR; 
Si:ap; DItsLOC TP; DSir^^DS; 

siJsTP; DitsLQc b; sn = si-i; dij = ui + a; osjschh; 
susLOC b; dh=tp; si>xST47; 



34533800 
34533850 
34533900 

34S33950 
34534000 



34534050 
34534100 
34534150 



TRH2(32(TAtiYl«8; TAiLY jsTALtY + lNCi; 8 isTALLYI OSl-CHR; SlJ«Sri))); 34534200 
RKTALLYMB; TAiLYi.TALLY + INCRi 8« cTALLY ; OS r«ChR; SJI.SI-UJ 
TPi»Di;,, DIi«P;' Sll«LQC, TP;' DS«*W03; 



end; 



34534250 
34534300 



34534350 



J43J4350 
INTEGER STRtAM PROCEDURE SPEC! ALW QVECN* A* B ) ; VAtUE N*A^B; 34534450 



BEGIN LOCAL NNj 

siisLOc n; si**si+6; dii*loc nn; oijsdi+7; os«acHR; 

SIMA; DItaB; NN(0SI«32 chr; QS»«32 CHR); US»»N CHRf 



34$ 34500 
34534550 
34934600 



, 2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23* 

24 

25 

26 I 

27 

26 

29 i 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 < 

42 

43 

44 ' 

46 

46 



• 
• 
• 



47 

46 

49 

50 

51 

52 

53' 

54 

56 

56 < 



m 






n 

2 



SPECIALMaVE:=Di; 

end; 



3AbJ4650 
34534700 



INTEGER SL*P*RI#CR#ETfTRI»NR; 

INTEGER SST; 

LABEL PROPEO<PRQPIT#SIMPLI:j 



34534800 
34534850 
34!j349QQ 



19 



22 



24 
2S 



28 

29 



31 



33 
34 

3S 
36 

3?" 
38 

39 



LABEL BACK»RIPPAT#BJBACK#PHQP,LQaK*FlNISHEDSCANlNGMlT ; 

BOOLEAN Bj»OCTLL»LllG*|MlNUSi>LlTPAT; 

DEFINE SCANRa 



COUNTtsSCAN(LASTSCAN#LASTSCAN*NR,SP£ClALCMH)#* 
SCANS(SCANS1)« 
STRINGSCAN<LASTSCAN,LASTSCAN^P/P.SCAN51>£T>0CTLL)»J 



34534950 
34535000 
34535Q5Q 



34535100 

34535150 
34535?QQ 



DEFINE JBsJUNKBUFFER*; 



% 



34535210 
34335250 
34535300 ., 



IF LITPAT»«CHRS«0 
CR«*CHRS; 

pi«patruff ; 



THEN CHRS«el20i 



WHILE TRUE DO 

BEGIN octllufalse; 

BACKt 



34535350 
34535400 
34*^35450 



scanr; 

IF BJ" 
RH»NR 



34535500 
X150134535550 
a ; t5C)i3 4 5 3 5 6 QQ 



COUNT 
ELSE 



LSS C THEN 



IF SPEClALCHRs""" THEN 
IF 0CTLLS=C0UNT33 THEN 
BEG IN 



RI!»CHRS tLSE 
GO BACK ELi>E 



34535650 
34535700 
3 4 5 3 5750 



34535800 
34535850 
34 5359 04- 



RpaCHRS; 

octll««false; 

RTPPftTt 



34535950 
34536000 
34') 36050 



ETJao; 
scanr; 

IF NOT 



nCTLI THEN 



IF OCTLLtsCSPECIALCHR 

GO rippat; 

C0UNT»»SCANS{l)i 



NEQ 



wwn 



) THEN 



34536100 
34536150 
34536190 



345 36200 
34536250 
345363QQ 



scanr; 

if (minus!ssp£cialchr= 

BEGIN 



'-") Oi^ SPECIALCHR = "*" THEN 



34536350 
34536400 
34536450 



scanr; 

NT6JaNR; 

scanr; 



34536500 
34536550 
34 5366 0Q 



40 
41 
42 



END 
ELSE NT6J=i; 
CHRS'-CHRS-Ri; 



34536650 
34536700 
34536750 



45 
46 
47 
•8 



IF Rl GTR 4096 THEM 
BEGIN 
RlPPLESCP»4a95>If HIKUS THEN 63"NT6 ELSf NT6); 



34536800 

34536850 
34536900 



RlIaRl-4095; 

End; 
if ri gtr 1 then 



34536950 
34537000 
3453705 , 



49 
SO 



51 
52 
53 
S4 



R1PPLER<P*RI-1'IF MINUS THEN 63'NT6 ELSE NT6); 

GO look; 



M537100 
34537150 
345372 ^0 



IF 8J THEN 
BEGIN 
0CTLL<«8Jt=FALSE; 



34537250 
34537300 
34537350 



55 

S6 
57 



BJ8ACKI SCANR; 

IF SPECIALCHR NEQ """ THtiN 
IF 0CTLL««C0UNTa3 THEN GO TO iJJBACK ELSE GQ TO RIPPAt; 



34537400 

345J74S0 

;1404 34537500 



h 



• • 



h 



18 
19 
20 



22 
23 



24 
25 



2« 
27 
28 
29 



31 



35 
36 

37" 



38 



41 
42 
43' 



45 
46 
47 
48 



49 
SO 



SI 
52 



end; 

TRIJsO; 
LNriJsFALSF; 



WHILE TRI 

BEGIN 
f-rtmai 



USS RI DO 



C0UNT5 = SCANS(MINCHl-rhU*o3))> 

IF ET=o Then GQ PHOP tLSt 

IF E T=2 Then 



BEGIN 
SCANRJ 

fi n pR Opf 



END ELSE 
IF LNGJsET*! THEN 
TRU^TRltCnUNT 



PRMpt 



BEGIN 



IF LITPAT THEN 

BEGIN RlJsTHl+CGUNr; GO PRUPED; 
IF TRUsTRH-COUNT lSS KT THKN 



END ELSE 



BEGIN 

IF P,tFF]eO THEN 

I F TRT Mnp Ran IHfN 



GO simple; 

IF CSST» = (C8xp,CCF D+P.LFFJ-TRn ) 
UJUM ._ — 



MUU d= THEN 



IF TRI LSS 8 AND RI GEQ e^TRI THEN 

BEGIN 
JMNK S aO; :- 



PRCPOGATt.(P* JUNKWMHI'O); 

IF TRlt=8j<TRIsRI fhEN GO PROPtU; 

sm __„ 



PR0PIT» 



ELSE 

8E6IN 



JUNK:aO; 

IF ET'BCCUUNf JSRT 

^09*^ THFN 



r R I) D I V TRI G T f! 



BEGIN PR0PaGATtCP#JBM095*TKi,0); 
ETSsET-4095; 



ENui; 

PR0POGATE(P»JB*£T»TRI^ 
ENTIERCCJUNT MOD FRI)); 



SIMPLE! 



GO PRQPEO; 
END I 
VAHJ£MOvE((RI"THn 



OIV 8^P*TR1 DIV 8/P); 



P«rP+((Ri-TRl) DIV Qii 

IF ETJ»(RI-rKl) MOD TRI NEQ Tht.iN 

P«'SPECIALMQVE(LTM^-CTRI Div e)^P); 



_l£. 



GO PR OPED? 

END ELSE 

TRI LfS 6 THEN 



GO PROPIT 
ELSE 
BEGIN 



55 

96 



IF RI'TRI 6TR 4095 THEN 
BEGIN 
PI»SP£CIALM0VECaQV5#CSST DIV 6U 



34^37550 
34t>J7600 



34bi7700 
34537750 
^fl5 ^7flnn 



34^37850 
34537900 
34lJ3795n 



34538000 
34538050 
3453^100 



34538150 
34538200 
345.^8250 



34530300 
34538350 

-3 4 5 3840-a- 
34538450 
34538500 

- 34538550^ 



34538600 
34538650 
345^a700- 



34536750 
34538800 
34 5 3 68 54- 



34538900 
34539000 



34539100 
34539150 
3 4539 ?QQ 



34539250 
34539300 
3453 9.1^^ 



34539400 
34539450 
3 45 39' 30 U 



34539550 
34539600 
34539650 



34539700 
34539750 

34539800 



345 39850 
34539900 
34539950 



34540000 
34540050 
34540100 



34540150 
34540200 
34540250 



34540300 

34540350 
34540400 



34540450 
34540500 
34540550 



Tl( 



>r 



10 



12 
13 



16 
17 
18 



CeNTIlIRCiST MUU 
TRI»=T«i + 409i3; 

JLHSU 



6 J J [ C 1 F ] ^ H J ; 



34b40600 
34b4Q650 
3ab4U700- 



P«*SPECIALMOVE(KI-TRi*(SST QIV «)& 
(ENTIERfSST MOO anccTF]*p); 



PROPEDS 



ENDi 



tri«::rt; 



34540750 
34S40800 
34540650 



ENOJ 

end; 

C HRSUCHRS^R If 



34540900 
34540950 
34541000- 



34541050 
34541100 
14 54 U !iO 



scanr; 

LOOKJ 

IF $P£CIALC H R= 



")" THL N tin F I I\ I S h^.'^g(: AM l M a,? 



34541200 
34541250 
34541300. 



end; 
finishedscaningi 

IF NOT LITPAT THEN 



IF CHRS NEQ THEN 

BEGIN 
RE V ERSEMQ VFCnR-CHRSfP^fPATRUFFtCCH RIV H})d 



34541350 
34541400 
3fl54l4'i0 



34541b00 

34541S50 
34541600 



19 

20 

21 

22 

23 

24 

2G 

26 

" 

28 

29 

30 

31 ~ 

32 

33 

34 

3B 

36 

37 ~ 

38 

39 

40 

41 

«2 

43 ~ 

«4 

45 



ENTIERCCR MOD 8)CCTF3); 

IF RII^CHRS DIV 8 Ht^ 

B£MM 



THEN 



34541650 
34541700 
34541750- 



CL£ER(PATBUFF*RI-n; 

IF truschrs mod a neq o then 

CHARACTFRMQVE(TRI^PATBUF^fPATHUFF^^Hn> 



34541800 
34541850 
34541900 



EiMO 
ELSE 



34541950 
34542000 



CLEAR{RI*1); 

CHAHACTERMOVE(CHRS*cOREAUL)H(Ri)jiPATBUfF) 
END/ ^ : ^ 



34542100 
34542150 
34542200 



ENDi 
XlTl JUNKIaO; 
*POP OMIT 



END OF PATTERnGENERATOH; 



34542250 
34542300 
3 454 2350 



X*****************i****ilr******4rii***********ili'****ifir***i^*ilr*****ir************34545000 



PROCEDURE 



GETPATTERNCP^B); VA^Ut P*b; IKTEGER P.B; 



34550000 
3 450OQ QQ 



COMMENT Places pattern p in BurrtR b^ 



34560005 
34560010 
34560015 



LABEL xit; boolean clr; 

STREAM PROCEDURE Bg ILDLAQEL ( D> MF lU^ F ID/ DA T L^ PKN ) ; 



34570000 
345/'0l00 
34570200 



VALUE 0>MF i 0»F I D# DATE* PRNi 
BEGIN 



34570300 
34S70400 
34 57Q 50Q 



«« 

♦7 
•8 
•9 
50 
61 
52 

a 

S4 

5S 
56 



DStaS LIT " LABEL 

sn«LQc mfid; 

D $«* 1 6 CHRi 



JtMFIU & F^n 



34570600 
34570700 
34570600 



DSI«3 LIT •'041''; 

sn»si+3; osi«5 chr; 

DSI»2 LTT "Ql^'l 



XREfcL NUMBER 
•CREATION DATE 
JtCYCLE NUMBFR 



34570900 

34S71000 
3457 1 1 00 



DS»»5 LIT •'99364''> 
DSlsLIT "B"; 
DSI«5 LTT "Q0001"; 



IPURGE DATE 
XTAPEMARK END 
XBLQCK COUNT 



34571200 

34571300 
345714QQ 



0SI«7 LIT 
OSI-LIT 
nSlT5 DECi 



'*ooeoooi"i 



no«. 



«RECORD COUNT 
*NOT MEM DUMP TAPE 
JtPHYiaTCAL REEL NUMflgR 



34571500 
34571600 
3 457 1 700 



55 
56 t 

57 



• • 



>T 



DS»=LIT "0"; 
DSl«5 LIT "OOOIC 
nS»-5 LIT '*OQQin' 



XUNHUOCKED 
XHUKTER LtiMGTH 
it MAX REC LFNGTH 



345/ldOO 
34b/'1900 



0SI«3 LIT "000"; 
ENOr 



345?'210U 
34572200 
3fl57?3nn 



'W~^^ 



IF CLKJ=80aLEANCP.[l«n) THEN PS=ABb(H); 

IF NTll = CNT2l«BUFFF.R3Ca] ).CFFJ L3:5 EMPTY 

THEN 



IF NTUP THEN 

GO XIT 
ELSE ^ 



XPATTERN ALREADY 



34i3a0000 
34!3Si0000 

346QQnnn. 



PRESENT 

»S0 GO 



UN 



34610000 

34620000 
^463Q nnn 



10 

11 

12 
13 
14 
IS 
16 
17 



18 
19 ~ 
20 



22 
23 
24 
2S 
26 
27 
28 
29 



30 
31 
32 
33 
34 
35 



36 

37' 



39 
40 
41 
42 



43 
44 

4S 
46 
47 
•8 



50 

51 '>; 

52 

S3 

S4 

95 

5« 

f7 



BEGIN XDELINK BUFFER FROM HREbLNT PATTERN CNTD 
IF NT3«sCNT4J5BUEFERS[B]).CLtJJs0 THEN XhtAD OF LIST 
PATTERNSlNTn « n ,. FHgNr4 . [ L FJ E l S£ 



34640000 
34650000 
34660000- 



BUFFERSCNT3 3.CLF3««NT4.tLFj; 
8UFFERStB].tLF3t«0; 
JJ. N T 5<sNT4 .CL F1aQ TH EN 



ITA IL OF I, 1ST 



34670000 
34680000 

346gQnon 



PATTERNS[NTn,CL8] l=NTi EL5E 
BUFFERSCNT5].[LB]«=0; 

BUFFEHS[B]«rLR3; = 0f 



34700000 

34710000 

-lAZ.2000n- 



ENO; 
IF P»EMPTY AND NOT CLR THEN GQ XIT; 
CLEER(CNT3|gBUFFERSCB3uCCF3^NT3.CSF]); 



34730000 
34740000 
34742000 



IF PsEMPTY THEN GC XIT; 

BUFFERS CB3.CLB3 t =P ATTERNS [P J , tLB J ; 

PATTERN.SEP3.[LB3;se; 



IF NT2l«PATTERNS[PJ,CLF3e0 THEN 
BEGIN 
PATTERNSrP3.rLF1t«Rj 



34743000 
34760000 
34/VOOO-0- 



34800000 
34810000 
34620000 



IF NOT CLR THEK 
BEGIN 

IF nth^patternscpi 



liiii THEN 



BEGIN 

BUlLOLABELCBUFFERSte3.CC»3#HEAOERE23 3*HEADERt29 3# 
TA PEDATE yPRN ); ^ 



34830000 
34840000 
34B40100- 



34840200 
34840300 



JE 



GO xit; 

end; 

PP NEQ PP> = (NTi:=PATTFHKi»[P3) .[23t lOJ 



The n 



34840500 

34840600 

JAa4i_Qi)Q_ 



READ(C@DEFlL£t:PP3*30*PDESC[*3 3; 

FIRSTSCANI*LASTSCANI=CO«EAUUR(POESC)+NTl»CiaJ53; 
CnMPtHNri»»TRtlEi ^ 



34850000 
34870000 

iflsaonnn 



scan; 

IF PATTERNGENEKATORCNrutCf 3 » BIFF ERS C B J . [ CF 3 ) 

B FGT N ^ „__^ 



THEN 



34890000 
34900000 



IF CSWIICH»0 THEN WRITECTWX COBL 3 ); 
WRlTE<CFlLE*PATEffiR#EBROR'S#A^; 

GO FXTTJ : ■ ., ■ 



END ELSE 
COMPiLlNGJ«FALi»E; 
IF Nil tS S Q AND TaPFQ U AT E U 



34911000 
34920000 
3493QO0Q 



THEN 



END 
END 



VALcEMiM ra^COREADOR CHE AQER 1 263 )>BUFF ERS CB 3 , CCF 3*1); 



34940000 
34950000 
3^95 0100 



34950200 
34960000 
349 70QQQ 



ELSE 349e0000 

IF NOT CLR THEN 34990000 

, VALUEMOVF(PATTFRNSCP3.CSF3>RUKFERSCNT^3.CCF3.hUFFERSCB3.[CF3}; 35000Q0 C 

XlTl BUFFERSCB3,tFF3l»P; ENO; X140635001000 

X ***♦************************************♦*****#****#**♦*♦#****** **^#**jj35002000 

STREAM PROCEDURE DISPLAYHEAUING(BUFF f WD# XLATE ); !6l40635Q02lOQ 



# • 



h- 



1 

2 
3 

4 

6 

6 

7 

8 

9 
10 
11 
12 
13j 
14 
15 

lis' 

il7 
18 
19 
20 
21 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



40 
41 
42 
43 ~ 



45 
46 
47 
«8 



49 
50 



51 
U 
i3 
54 



55 

56 



VALUE buf'f^xlatf:; 

BEGIN 

L AB EL L; 



dihsd; 

BUFFCDSJ"? LH "BUFFER "isn»iu; 

a(IF SCs" t THFN JUMP fJUT J nS t »CHR ) ; 



;«14Ob35OO2200 
*14U635U02300 
^HUft3^0t)2aOXL 



DS:»lO LIT " CGNTAIImSC"; 
JUMP OUT TO L); 
DS»s6 LIT '^PATTFRiN "i^Tt-TD/ 



8(IF SCs" " THEN JUMP OUT iUS J »CHR ) ; 
0S»»4 LIT " ISC'*; 
LI SUsLOC XLATE;ST»»SH-b;DS>»:3 CHRjpStsg LIT "}{"; 



%iaU635002500 
%1«U635002600 
illl^063S0U27Qn 
5(140635002800 
51140635002900 
!i;UQft3500S000 
XU0635003100 
»l«O6360O3200 
a!l406350Q330Q 



end; tl4U6350U3«G0 

X ******************************************** ******<ir*********************350U3500 

PROCEDURE NEWDISPLAYCI >; VALUE 1/ REAL i; *U0635004l00 

BEGIN *140635004200 

I liiiQfiTtKOan'inci 



COMMENT INTEKPRETS TYPE T5 DiiiPLAY I NbTRuC Tl ONS? 
% 
J3.EF INE ei«BQQ LE ANU 3» ; 



STREAM PROCEDURE SVDIS( TYp£, NAME* BORP* V AR# QUTB ) / 
VALUF TYPg«BnRP,yAK»nuTB; 



BEGIN 

LABEL >^DC»ICD*KEbLT*XlT'ChtCK/ 

% 



*140635004200 

a;UQ6i5Q043no- 

^140635004400 
1140635004500 
;i;14U6 3'^0U4C)Qfl,. 

X140635004700 
*14063500480Q 

» 1406 35004900- 



di«»outb; 
cii»ci*type; 

GQ ViQCi 



il40635005000 
ifcl40635005100 

;U4Q6 350Q52iliI- 



WDCt 



GO iod; 
GO reslt; 

DS» = 11 lit '*^^QHD COUNT 



X140635005300 
*140635005400 

il406-^S0QSS0n 



JLL 



^^ CHECK; 



lODJ OS;ail LIT "I/U OESC "I GO CHECK; 
RESLTlDStsil LIT "RESULT DESC"! 

IL 



J;140635005600 
%140635005700 
ail40Q3hOCi5ftOO 



CHECK? 



X140635005900 
a;i40635006000 
iii40ft^sQQ6t nn 



b0rp(ds»=12 lit 
s i »=namf; 



FOR BUFFLH 



JL. 



8{IF SCs" ' 
JUMP OUT); 



THEN JUMP UUT;OS!=CHrt); 



%14U6350U6200 
%140635006300 
a;14Q6350v64Q0 



DSJ=3 LIT 
S pg LQC V AR ; 



X14U635006500 
X140635006700 
%140635006aOQ 



TYPE(2C8<0S»»3 RESETJSCIF SB THEN DS«»SET ELSE DS»«RESET; 

SKIP seJ);os»«LiT ♦' '•); 

JUMP OUT TO XIT>; : 



%14O6350U6>?00 
X14U635007000 
ai40ft35Q07l0n 



DS»=8 dec; 

DI»=DI-8; 

DS»«7 f i ll; 



X140635007200 
%l«O635OO7300 
% 140635007/100 



XI T« END OF SVDIS; 

INTEGER BQRP* SI 7E*AnOR; 



%140635007500 
X140635007600 
X1 4 0635007700 



LABEL BDISPLAY; 

BQRP:»I.C24:9]; 



X140635007800 
X1406 350O7900 
liA063'>QQeOQQ 



IF 81 ft 331 1 J THEN WRITEC auTFUPAQEl j; 
IF NTil*I,C39»3 3«0 THEN 

IF BI«t34ll3 THEN WRlT£CQUTFllOBLli £LSE 



X140635008100 

)6140635008200 
%14U63S00B.^QQ 



X 1406 3500 8 400 

X140635008500 

TM4Q^ 3 500 8600 



1^ 

3 
4 

6 
7 

ei 



>T 



IF BI.[33!1] 
WRITECOUTFI) 
XLiI , , 



THE.I\ E.LSe 



IF 



BDISPL AYJL. 



NT1»1 
BEGIN 



THEN 



%UU635008700 
^140635008800 
aiU063bU0H900 



IF BI,C35:i] THEN 

BEGIN 
ClEARCnUTPUf FtKfy^FlUFF)> 



X1406 
XI 406 



35009000 
35009100 
350Q99 0Q 



*1406 

;«;iao6 



35009300 
35009400 



JLil0^a3M95M.. 



12 
13 
14 
IS 



17 
18 



19 

20 



23 



24 
25 



26 

27 



29 

90 

31 \^ 

32 

33 

34 

35 



36 

37' 



38 



«0 
41 
42 
43" 



IF NOT TABLEPRESENT THEN 

BEGIN 
READ(CDOEriLE[HEADEfitO]^l3>HFADERi:63,BNAMESt*3); 



READ(CODEFILE); 

TRANSFERlN(HEADER[i^]* JO*CGDtFmE/HNAMESC*J ); 

JlARLEPRESFNr:»TriUE; . „ 



X140635009600 
»U0635009700 
Xl<tO 635009e0Q 



end; 

IF NT1»1 then 
DlSPLAYH£AOlN6Ct.QuT6UFFER#BNAMESCBaRP3> 



il40o35009900 
X140635010000 
•|H06350lQlOfl 



X140635010200 
XH0635010300 
lHQ635 QlMaQ, 



ELSE 



IF BCL IHEN "aCL" ELSE "INT") 



DlS P LAYHEA ni ^K jt Q^QL^TbUFFtR^PiNAWf^^LBOhPJr 



X1406350i0500 
X140635010600 



IF BCL THIN "QCL" ELSE ••INT"); 
WRnE(0UTFlCD8L3#8#0UT8UFFERC*3)l 
FND? 



ADDR:»BUFFERS[NT?J=I.C24i9JJaCFj; 
SIZEJ = IF NT1 = 1.THEN BUFFLHo tNTi 3 . [ SF ] ELbL 
PATT^H(\^fBnHP1.t5F3J , 



X140635010800 
X140635010900 

xi4Q63SQiinnn 



M0VEANDWRlTE(Bl,t35U3* 

NTSjsIF NT3t»I.Cl 123*0 THEN SUE ELSE 

— . IF I € Then 



X140635011100 
X140635011200 

xHOi^jsonsoc 



IF NT4; = i,i:6j23=C THEN UCSF3 ELSE 

IF NT451 THEN M Ifa ABb CT ALLY )# S IZE) ELSE 

MlNC B V L NHtJFBV A RxCNT^- l ) J^ SIZ t J EL jaL 



1140635011400 
X14063501150C 
i li l 4 n6350U600 



X140635011700 
X140635011800 
^140ft35QU900 



IF NT45CI.C6J23S0 THEN SI2E-1.CSF3+1 ELSg 35012000 
IF NT4sl THEN S I ZE'MINC ABSCT ALLY )*SIZE ) + l 35012100 
FLSE MINfBA/rNROFHVARxfMTp-pl.RTZFi, 1 1 4Q^ ^50 ] pgnn 



IF BI. [35113 
END 
EL S E 



BI.X341 IJ^ 
QUTFI* 
AQDR^C IF i n 



THEN WRITECOUTFICDBL]); 



[^ij] ThFK Ci^UE-NT5) ELSL OlX 



*1406350l2300 
X14063501240Q 
U406 3S0 125M 



IF NT1*2 THEN 

W F" f T M 

IF NT2»»PATTFRNS[aORP3 .LLF 



X140635012600 
X140635012700 
tl4063'^Ql2flQfl 



ELSE BEGIN 



■I NEQ THFN I .L24{93»=NT2 



X140635012900 
X140635U13000 
ii n06350l 3l00 



GETPATTERNcBO»P/i)l 
l.fg4»93>»lJ 



X140635013200 
X140635013300 
X140635013400 



46 



«8 



«9 
SO 



S3 
S4 
95 



END; 

GO bdisplay; 

xm 



ELSE 

IF NT1»3 THEN 
IF B I. t34m 



X140635013500 
X140635013600 
X14063501370Q 



THEN 



X140635013600 
X140635013900 
Xi4063SOl4000 



WRITE(0UTFIC0BL3*DTALLY*TLLY) 
ELSE 

WRITE(OUTFI»DTALLY^TLLY) 



X140635014100 
X140635014200 
X140635014300 



ELSE 

BEGIN 

CLEAR (QUTBUFFER^WBUFFJ; 



X140635014400 
X140635014500 
X140635014600 



rf 

2 
3 
4 
5 
6 
7 



9 
10 
11 
12 

13] 
14 

(IS 



|16 
t17 
IB 
19 
20 
21 
22 



23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37" 

38 

39 

40 



41 
42 
43 



45 
4« 
47 
48 
49 
50 
51 
52 
S3 
S4 

is 
x 



SV0IS(NT4:sI,C36:3]*aNiAMf.Si:b0HP], 

BORP^IF tiOKP UIQ Jhth BV [ivjRQFBV ARx ( BCRP' 
IF NT4 = THFN WfjPCfJlM FL SF 



1)+NT43 



IF NT4al THtN LIOD tLS£ SAVtH* 
QUTBUFFEH); 



XU0635014700 
ELSE 35014800 

5KHO635O15O00 
»140635015100 
il4063«.015PQn 



QUTBUFFEW); » 1406350 1 5 lOO 

IF BI.[34tl3 THEN ^RITE (OUTF I CDBL ] , 8>QUTBUFFER r * 3) ELSE i 14063«.0 15PQn 

kNRITEtOUrFl,6»UUTBLFf-LRt*J); X 1406350 15300 

end; *14063501540C 



XMHi 



X************************* ***************************** *:****************3502jQ0Q 

PROCEDURE OISPLAYIT(INSTRUCTION); 3502U00 

VAi (.IF iNSTRUrTTONi RFfll INSTRUCTION; ^ B^QSignn 



BEGIN 
C OMME N T 



INTFHPRFTS "nT.SPlAY" IN STRUC Tl HNSi 



INTEGER BDRP»SI2£; 
REAL anpRi 



IF NTl«*lNSTRUCTIGN,t36!6] (jTK 1 
I F PA GE TH EN 



THEN 



ELSE 



WRlTE(OUTFUPAGtJ) 
WRiTECnuTFUDBI IfSTAH)? 



IF B0RP«=INSTRUCTION.[FFJ«EMPrY THEN 
BEGIN 
IF RLdNiiTPUrTTUNtr. S a ] } T HFN 



IF 
ELSE 



BLCNTl) THEN 

WRnE(OUTFltD8L3#DTALLY#TLLY) 



^«RlTE(OUTFi'DTALLY#TLLYi 
ELSE 
IF RLC^Tn THFN 



ELSE 



END 

ELSE 

B EG I N 



WRITECQUTFUOBLJ) 
HRTTFfQllTFi )i 



CLEAR(0UTBUFFER*i^8UFF); 

jUNKatsiNSTHueTiON LS3 o; 

IF INSTRUCTlQN.tSCFJ tsSS 63 THEN 



BEGIN 



IF NOT TABLEPREiiENT THEl\ 



REftDCC0£JCFaEtHEAD£RC0 3 + n# 

HEADERt63>SNAMESt*3); 
READ(CODEFIfeE); 



TRANSFERIN{hEAUER[2]*30# 
C0UEFILL#PNAMES[*3 )> 
TABLEPRESENl tgTKUtL'; 



end; 



ENo; 

IF .JUNKB THEN ■■■.;; 

DlSPLAYHEA&lNQtl#0uTByFFER*BNAWESC80RPl> 
IF BCL THEN "BCL" ELbE "INT") 

DlSPLAYHEADlNG(0fUUTBUFFER*PNAHESrB0KP3* 
IF BCL THEN "BCL" ELSE "INT")* 
WRITE(OuTFlCDBLJ»W8UFF*OUTeuFFERC*3); 



ELSE 



35021300 

35021305 
3 50 2 131 0- 



35021315 
35021400 
350 2 1 4 50 



35021517 
35021519 

3^P?1520- 



35021530 
35021540 
3 50 2 1550 



35021600 
35021700 

■ 3502X7X0- 



35021720 
35021730 
35Q21740- 



35021750 
35021760 
350224QH 



35022500 
35022600 
3 50 P2.7 00 



35022800 
35022900 
35O 23QQ 



35023400 
35023500 
35023600 



35023700 
35023710 
3 50 237 20 



35023730 
35023740 
35023750 



35023760 
35023770 
3502376 



35023790 
35023600 
35023900 



35024000 
35024100 
35024200 
35024 300 
35024400 
!i5Q2itt5O0 



i< 



m • 



h 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2S 



2« 
27 
28 
29 



90 

Si" 

32 

33 

34 

35 

36 

37' 

38 

39 



43 
44 
45 



t« 



•8 



a 

54 



S5 
S6 



ADDR«sIF JUNKB ThEN tJUFFE-HSCB 
IF NT2:=PATTE:F<Ni.tBQKP],[ 

nuFFFHsciJ tisr 



ORP] ELSE 
LFjeO THEN 



3502/»600 
35024700 



8UrFERS£NT23; 
SIZE»»IF JUNKB THEN A0DR.CSF3 

— PATTERNSCBQRgl.UFlt 



ELSE- 



IF NT2sO AND NOT JUNKb THEN 
GETPATTERNCbORP*!); 
MOV£ANPWHl T£(NTjt= l NbTRugllQN,[^CF 3 < 6^ ,, 



35024900 
35024910 
.15QP492Q- 



35025000 

35025100 

iM 406 J30iL5.?QQ 



NT5»«IF NT4t»rNSTRi)CTlONf tSFJsO THEN 
SUE 
E LSE ^ 



35025300 

35025400 

-35Q2S'30n. 



IF NT4=1023 
IF BL( 

— , . IF B 



ThtN 35023600 

INSIKUCT10N,t3»5] ) THEN 35025700 

i.C]i\^TRurTUiN,C2n3) Th£N 350257-ia 



SnE-(CNT4l«MlN(ABS( 
hRDC0UNT)*SI2E))*l) *1406 



FLSE 



35025720 
35025730 
35iJ25.7.443- 



CNT4!=N:1N(ABS(>«RDC0UNT),SUE)) 35025800 
ELSE 35025900 
IF d L C I Ni-TR U CT l QN . CPtn) THEN 3-5iJiianil 



E L SE 



SlZ£-CCNT4t»MlNCABSC 
TALLY), SIZE))-!) 



ELiE 

VL, 



(NT^:aMlNCABSCT ALLY), SIZE)) 
BL ClNSTRUCT l l l N. [ 2tl 3 ) TH E N , 



35025920 
35025930 
350 2 59 4 



NT4 



SIZ£-(NT4-1) ELSE 
t 

inUTFI* ^- 



35026000 

35026100 
35 2 611 



ADUK,[CF J + C IF NT 
C2!in THEN 



35026120 
35026200 
3^026300 



4 = LR NOT faLC INSTRUCTION, 
tLSE 



ENDJ 



IF INSTRUCTION. [SCF3 
WRiTECDUTFlCDBLJXi 



35026400 
35026500 

35Oi?660Q. 



iSS 64 THEN 



end; 

PRnCEDuRF rnMPARFRRnwCTMST.B); 



35026650 
35026700 
3502 6800 



***i[*************4it*************« 



VALUE INST,8i 
REAL INST; INTEGER 



35026y00 
35030000 
III5OI35O3O1QQ 



*150135030200 

11150135030300 

3 50 3 04Q Q 



BEGIN 

COMMENT CALLED ^^IhEN AN EhHQR OCCURS UURInG 



35030500 
35030600 
35030700 



INTERPRETATION OF A COMPARE INSTRUCTION. 

auNKB IS True IF A pattern is being 

COMPARED f 



33030800 
35030900 
35031000 



FORMAT ERRFCCOmPARE ERROR"), 
ULF f" *'")» 



IFF (14, « CHHS CiN 
"(FIRST IN WRO 
LABEL XIT; 



»,mp» W03) ARE DIFFERENT •', 



35031100 
35031200 
35031300 



35031400 
35031500 
35031550 



% 

IF 

IF 



INST LSS THEN A>sA+i; 
IGNORERRORS OR BL( INST . C 2 U ] ) 



THEN (JO xIT; 



IF NOISeONERROR or BLdNST.CSJU) THEN 
BEGIN 

WRlTE(GUTFl[NO],NaiSER); 



35031600 
35031700 
35031800 



X140335031900 

31140335031910 
X 140335031920 



10 

11 

12 

13 

14 

116 

1$' 

17 

18 

19 

20 

21 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 



38 
39 



41 
«2 



45 
•6 
47 

«a 

*9 
>0 

61 



52 

53 
54 
55 



56 
57 



hHlTE:(GUTFl[08L])J 

GO xit; 



KNDJ 



WRITECOUTFI, ERRF); 
WRITE(OUTriCDBl.. 3* ULF),} 



*^RITEC0UTFI[DBL3); 



% 



DISPlAYTT(;?SR[CTF3SRi;;Ai. fNQT JliNKfl ) F t S 4/; 1 j),; 



DISPLAYITC2&INSTC24«33!91); 
WRITCCOUTfI,DIFF#DlFft); 



XIT« 



IF PAGE THEN WRI TEC DUTF I C PAGE ] ) ELSE 

BEGIN WRITECOUTFHOBL] J; wHI TE( OUTF I t DBl ] ) ; END; 

end; 



itlA033503l930 
»1403350319«0 

ill40335031960 
35032000 

3SO321C0 - 

35032200 

35032300 
ISSnZAQ-Q-..- 

35032500 
X150135032600 
3- 50 3 2700 - 



X********* ********* 

PROCEDURE START 
MAlh 



35032800 
35032900 
35033000 



_ ^ . ^ ^ . _ 35U3 3000 

* * * * * ****** ***<k*************«******* **************** **35033i0O 
APEIOCIOD* RESULT); VALUE lOO; REAL lOO' RESULT; 35040000 



RESULT««0; 

IF (NT1I«(TIME{1 )-IOFT) DIV /)0) LSS DELAY THEN 

WHFNNCPELAVNTl ); 

laREQUESTC-tIOO)&5C25t«OJ6J,l0D*C0REA0DR(RESULT)i 

UNIT[12}42!6UU2»47:U); 
TRANSt»IF HO0LEAN{T0n.r??tl3) THEN 



35Q5Q00fl 



35060000 
35060100 
35060200 



IF BUQLEANCI0D.[18«1J} THEN 
ELSE TRAiNS-1 
EL S E TR . AN S-t-i ; 



35070000 
35080000 
350<^n000- 



351U0000 
35U0000 
35120000- 



END; 35130000 

X***************** ****************♦***♦***#*********♦*#***»************* 35 1^0000 
PROCEDURF TAPrRRORf Tnn»RFSt]LT>MASK»KFY^! ^'^l^annn 

WA. .,,. Tnn_...c...,.rw, 35160000 



VALUE I00*MASK*KEY> 
REAL IOD#RESULT#mASK; INTEGER KEY; 

forward; 



35170000 
35160000 



forward; , 3 5 160000 

%********«********** ********* * * ***************************************** 35X90000 
REAL PROCEDURE T APEPARITYRETRY CR,OI 00 ) ; VALUE RrOlOO; 35200000 
REAL R#QIQD; .. 3S210O0Q 



FORWARD; 



%**************************************************«**«********* 

PROCEDURE iofinishciod>result»hask>keY);value ioo*mask^kly; 

SCAi T nn . or cut -r . M A Cb' ! TKircRrQ i^e-w* 



real iod»result#mask; integer key; 

BEGIN 

integer ad; 

boolean stream procedure CUMPCA,B*S2D1V6'4,SZ); 



35220000 
******************** 352 jOOOO 

35240000 



35250000 
35260000 
35270000 



VALUE 
BEGTN 



A*b*SZDIV64*SZi 



35270^00 
35270200 
352^)300 



LABEL ERRi»XlT; 35270400 

sni»A;DII«8; 35270500 

SZDlVfl4(i6fIF 32 Sc NEQ DC TH^N jUWP OUT 2 TO ERR))f 35270600 



E RRI 



SZ(IF 8 i>C NEQ DC THEN jijMP OUT fu ERR); 

GO xit; 

TAtLY««i;CO MP«=TA LL Y/ 



XITi END) 

LABEL XlT#E*Eil 

INTEGER STREAM PRQCEDuRE SiZrCHECKtA >; VALllg. ftl 



35ii70700 
352^0800 
35270900 



BEGIN 

siisa; 



35271000 
35230000 
35280100 



IF SC = " 



THEN 



REflJN STtsST*i; IF Sr N ^ q "«•' * 



SlZECHECKtaTALLY; 

end; 



35280200 
35280300 
THEN TAI.lYtet; end; 35280400 

35280500 
35280600 
35280700.. 



• • 



h 



SlZERRJ=FALSEi 
ADt»COREADDR(RESULT); 



IOFTI«TlME(l)i 

IF KEY*! 9R K£Y»3 THEN 

REfilN „ 



352aoaoo 

3S290000 
353000Q0 



WRDCaUM5 = AD:3A6a(IQ0»lCF J-RESUlT .CO J j; 

ADtaMlN(AD*IOD.[SF ] + U; 

IF inD,[?i:?3fO AND rtLY hffj 3 IHth 



35300100 
35301000 
35301100 



%M0635301200 

35301300 

. 3530U00 



9 
10 
11 
12 
13 
14 
IS 



16 
17 
IB 
19 



20 
21 



22 
23 
24 
2S 
26 
27 



28 
29 



30 
31 
32 
33 
34 
35 
36 
37" 



38 
39 



41 

42 

♦3" 

44 

45 

46 

47 

«8 

49 

50 

51 



62 
53 



S4 

S5 
56 



WRDCOUNT««WROeOUNT»SUECHECK<IQO,tCF] + AD-n> 

end; 

IF MASKa-gw^yTOnOQQH yMPN Gn Fif 



IF RESULT, C25t8]-MASr^,[25J6] THEN 
IF NOT BL(MASK,f lU J) TmEN %\Q1 

lE-KFY?! THEN ^ ^ ^_™ 



X140635301500 

XIA06353U1600 

3531Q0Q0 



RETRY I/O 



IF P»*I0Dl,tFF3 LSS EMPTY THEN 

BEGIN 
TF CnMP(ENTl£R(lQD.CCF3«C 



35320000 
35330000 

35350000 
35360000 
35390flflil. 



(iUD»tvSFJ-uxiaG,c22;n))^ 

0BUFF.l0U,C8»4]»l0D,tSF] J 
0*^ SIZERR; = WRUCQUNT NEQ lUD. 



LSO. 



353V0000 

35'»00000 

TH£N;ti^g635<»ginoii, 



■ ■■GO ■£ ■ 
ELSE GO XIT 
ENn ELSE IF SiZEHRiXwRnrOUNT NfQ TOn.CSFl 



AN n 



35410000 

35420000 

1140635430000 



ELSE 
E LS E 



lao.csFJ 

GO XIT 



iMt« 1C20) THEN GO E 



IF NOT {Sl2£RRi»ClOUl.i:SF3 NEQ WROCOUNT 

mm. rsFi mf« o)) them an xtt 



35431000 
35440000 
3545 00 0-- 



ANO 



35450020 
X140635450100 

- . ^5450?0J- 



EJ 



ELSE ELSE GO XlT; 
TAPERRORCICD>RFSULT>MASK>KLY); 



35450300 
35460000 
35470Q Qj:_ 



El» 



IF RESULT GTR THEN 
IF IQD L SS TH F N 



35480000 

35481000 
35490Q0Q 



BEGIN 



A«sA+l; 
GO X I T; 



35500000 
35510000 
3552QO0O 



end; 35530000 

XIT« end; 35540000 



PROCEDURE READERROR(IQn»SZ); VALuE IUD,SZ; HEAl IOQ; INTEGER SZ^ 35550100 
BEGIN 35550200 

COMMENT HANDLES PATTERN DIi»PLAYS ON READ ERH0R3; 35550205 



FORMAT 

WTFtH*" WORDS (">A3#'*) READ WEREt")/ 
QKWTfff Tft*** WtRDS (**«A3/«) REAO*"SAme AS EXPFCTED**)> 



35S50300 
35550400 
35 5 5 500 



BWTF(H#" WORDS (",A3#") READ-'NUT AS EX pECTED'-fcvERE » " ) * 35550600 

DIFF(I5*" CHRSClN'Mi*" yvDS) DIFFER FROM EXPECTED "* 35550700 

"RFCDRU (FIRST IN WRD"MS^"}")^ ^ 3 55506 00- 



Sl ZCRR0RF { X24#«S1EC ERROR < 'S 1 4/ " WORDS READ )" )# 

NOTRANSFC'NO DATA TRANSFEHED ON RiAD"); 

LIST WLTSTfS2«lF RCI THFN ^BGL" Fl SF WINT" )1 



35&50810 
35550820 
355SQ00Q 



IF SZ NEQ I0D»C5K] AND lOD.CSF] NtQ 1020 
WRTTFfnilTFTCnHI 3 . S TZERRDRF, S2 ) ; 



THEN 



35551000 
35551100 
3 555 1PQQ- 



WRITE(OUTFItDBL]); 35551300 

IF S2l»MIN(SZMOD,CSF3)»0 THEN WR XTE t QUTF I CDBL 3#N0TRANSF) ELSE3555U00 
BEGTN . . 3 5 55 1500 



m # 



8 
S 
10 

n 



13 

14 



(17 

ia 

19 
20 
21 
22 



23 
24 
25 
26 
27 
28 
29 
30 



31 
32 
33 



34 
9S 



36 

37" 

38 

39 

40 

41 

42 



43 



45 
46 
47 
«S 



50 
51 
52 
53 



55 
56 
57 



IF lOCl.CFF] NEQ EMPTY THEN 

IF C0MPAREDAlAJ=dIGCGMPARF.CS/:&l0D[ll22:lJ* 
lQDt[CFJ^P dUFF-^C$ Z- nxlU D«f22M] ? 



Then 

BEGIN 



35'Ji>1600 

35551700 

llSiOl, 35>:?lflQfi 



WRTTF(nUTFH0fclL]*awTr«WLlST3; 



355^1900 
355S2000 
355S21QQ 



^vRITECQUTFlCDBun; 355i2200 
M0VEAiM0'^RlTL(TRUE*S2,FALSE,auTFI,IDD.CCF]- 3bi>5 2300 
f . S/-1)x i U J,[22 » Uli . 35'^b2^00 



WRITE C0UTFUDBL3 ); 

WRITE(OUTFItO8u3*DIFF#0lFrL)i 
WR lTE( Q UTF UnBL 3 >; 



35b52A50 

X150135552500 

3fi55?ft0n 



END ELSE 
BFGIN 
WRITE(0UTFHD8L]/QK>^TF.>^LISTU 



35552700 
35552800 



END 



WRITEtOUTFiCOBUJ); 



ELSE 



BEGIN 



35553000 
35!353l00 
3S553?Qn 



WRITE(OUTFUDBL]*WTF^WLIST); 
WRTTFf, UOTFICDHLJ,^; 



kCVtANDWRITECTRuE*SZ*FALSE»OUTFl* 
lOD.teFl-(i2:-l)xiQD.t22«i3); 
WRlTECOUTrltPBLJJJ 



35553300 
35553^00 
1^553500 



END. 



35553600 
35553700 
3S553Bnn 



end; 

ENDi- 



35553900 
35554000 
35 554100 - 



PROCEDURE TAPERR0RCID0,RESULT*MASK#KEY); 35560000 
VALUE T 00 1 MASK f key; ^ 35«^7nnoo 



REAL iod#result,mask; 

BEGIN 



INTEGER KEYj 



COMMENT 



35580000 
35590000 
3')590n0'i 



TAPFRRHR nnFS THF ACTUAL FRRflR ANAl YSTS WH;: M 



A TAPE ERROR OCCUHS* IT IS mLSO USED AS A 
RESULT DLSC ANALYSIS HQUTlNE k^HlLL TaPEPaRITY 
RFTRY IS R u NNlNfi (MASK . Utn s n . THj 



35590010 
35590015 
-^5590020. 



STACt« IS 
ANALYZED 



AS FOLLOWS WH£M 
BY TAPERRORS 



35590025 
35590030 



A RETRY I/O IS BEING 



TAPERROR CANAuYZliMG RETRY I/U; 

TAPEPARlTYRtTRY 

TAPERROR (ANALYSING QKICJlNAl. FrtlLUBEJ 



35S>90040 
35590045 
35590050 



35590055 
35590060 
35590065 



OEFTNF R*RFSllLTj<> 



35590070 
35590075 



RLsREAL*; 
INTEGER E'T; 
INTEGER SAVEDLLAY; 



BOOLEAN ritrytog*pge»abr*retrying#makelog; 
OWN integer rtycount; 

label si X#WD^X I Tf spout* TAPEPARITY, I OOS^PAGECHECKJ 



35610000 
35620000 
356 20 1QQ 



FORMAT 

ULFCSOC-"))* 

notransfc'no data 



35630000 
35640000 
l5<iS I? 



SULF (*("-")," 

TRANSFEHED ON 



HtAD")f 



BLNKTPEFCX24, "BLANK TAP£ ON WRITE")* 

ERHF<A*#" FAILURE")* 

N0ERRFfX24>"N0 ERI'iOR BITS")* 



35660000 
35670000 
3568OQO Q 



35690000 
35700000 
35 7 ^00 00 



• • 



>r 



13 



16 
17 
18 



19 
20 



21 



23 



26 



28 



29 



33 



34 
35 



36 
37' 



42 
43" 



46 



46 
47 



49 
50 



51 
52 



d. 



BLNKTPERF(X24^"dLANK TAPE ON REAU")# 
D20F(X24'''PARITY - D2U"J, 
D^0AE:FfX24»"PARlTV " IJ«^0 US L yp L tTi ..n )" ) / 



RESFCXS^^HESULT DESC» a 
lODF(X8*"I/0 DESC. « 

RETYrC'UNALYSIS T/O I" 






"*A5)* 



ORIGFC'ANALY^JIS I/Q #U (QWKiiNAL I/U)"J* 
BLKF("*OHlGlNAL 1/0 ON BUOCK #"..lb*" WASJ")^ 
DRlGlNALF("*0RIl3lNAL X/0")» 



B0TAEFCX24#"B0T CAS 
B0TFCX?4'''80T'')» 

FQTFfXgA>"FUT">« 



fcXPECTED)")* 



TAPEMARKEXPFC'TAPE MARK KLCORO EXPECTED"}* 
E0TAEF(X2a,"E0T (AS tXptC TED )" ) * 
FQFF(X?4> "FQF - [ )IV')» 



E0FAEF(X24/"E0F 
EXPFCH*" WORDS 



- D2l CAS tXPECTEO)")* 
EXPECTED k^EReC^Aa*")-")* 



nwrfTA.w wnnns wRirrFN wrwr r ".a.^^wh w^ . 



TMWFC'TAPE mark record WRITTEN"), 
D19FCX24*"MEl<!!DRY PARITY - Ul^")# 
hRTI.nr.KFCX24>A3/""WRITF l.QCK")f 



D17F(X24*"MB0RY PARITY - D17»')» 
SUCCESSF ( ••COMMENT «'**/»^X9» 
"»RETBY WAS ^UCCFSSFUL'S/ t X9» 



"-RETRY RGUUNE EXITED")' 
IRRECCVRFC"CQMMEnT J"*/,X9 

"-FATUURE ^<A.S I KHK.n VFHARI..E" « /> XQ» 



"-RETRY ROUTINE EXITEO")' 
BLNKTPEIRR£CC"C0MM£NT«"*/*X9 
. "-BLANK TAPE",./iX9 . . 



"-RETRY ROUTINE EXITED")* 
SPACERR(X24#"vSl2E ERHUR("*ia*" »mCHDS 
NQTRYf"CUMMENTrV/^X9* 



SPACED OVER)"), 



"-NO RETRYS ATTEMPTED ON TMiS TYPE I/O ••# 

"AND FAILUKE"*/*X9* 
"-ERROR ROUTINE FXITED"). 



STRANGE t" COMMENT !"*/,X9 

"-RECORD lNAi> I NTENT I CNALi. Y 
"TNCORREr.T H AH 1 T Y"> / , X Q, 



READ IN "* 



"-NO RETRIES WERE ATTEMPTED", /»X9, 
"-ERROR ROUTINE EXITED")* 
onncrnwMrNH ODD SITUATION"*/, 



-COULD NOT READ 
I/O BUT COULD WITH 



RECORD WITH ORIGINAL", 
This ONE",/, 



35720000 
35730000 
3'a74Q0nQ- 



-RETRy ROUTINE WAS EXITED"), 



BAD("COMMENTJ 

■■ It 



BAD SITUATION",/* 
•DATA HEAD WAS INCORRECT"*/* 
-SINCE HAHQWARE DETECTED NO "< 



35750000 
35760000 
357 7QQilD.. 



35''bO000 

35790000 
35 8QQ000 



35610000 
35820000 
358 30000. 



35831000 
35840000 

.,.i5.9Ja.Q.Qilil 
35860000 
35880000 

JSfiA04..na. 



35880200 
35890000 
35900000. 



35910000 

35920000 
35921000 



35922000 
35923000 
3')924Q0Q 



35925000 
35926000 
35927000- 



35928000 
35928100 
359290QiL 



35930000 

35931000 

_aSSJ2.QilX). 



35950000 

35951000 
3'i9520n0 



35953000 
35954000 
359600QQ 



35970000 
35980000 
35990000 



36000000 
36010000 
36020000 



"ERROR CONDIIIONS, RETRY ROUTINE MS EXITED"), 36030000 

lNvADDRFCX24,"lNVALm ADCR - 022"); X 140 1 36040000 

STREAM PROCEDURE I OD ANAC UP,DI NEC T, TUG , MODE * SUE , A,B ) J 36050000 



VALUE 
BEGIN 
LOCAk 



LABEL L^ 

SI :aLGC up; 
dI:«b; 



OP*OIRECT*TOG*H0DE*Si2CJ 



36060000 
36070000 
360&O00O 



DIJSLUC Ti; Dlt=Dl+7; dsjbchr; 



36090000 
36100000 
36110000 



SIl«SI+7; SII8SI-TI; OSJsTl 

sii«Loc direct; sitai>i+7; 

IF SQg"!" THEN DS»«=7 LIT "FDRWARD" 



chr; usibLIT 
ELSE 



36120000 
36130000 
36140000 



56 ' 
57 



\y sc = "2" THEN \:^'ii\~i lit "HEVEKSL"/ 

TOG(DSs=Ln "C"; Si:«LOC MQCt:; Si:sSl+7; 
L IF SC = "2" THFN Ui)t=6 LIT "RINARY" FLSF 


36150000 
36160000 
.^A 17 0000 ) 


' IF SLs"l" THtN D5!s5 LIT "ALPHA"; 

2 si:«Loc Size; TALtYise; 

3 IMF Srs»«0« THEN 


36180000 ' 
36l«0000 ' 
36200000 3 


" BEGIN TALLY»sTaLLY+63; blJsil+l ENu ELSE 

* JUMP OUT); 
« T1 t = TA| ly; 


36210000 

36220000 ' 


' TlCDStsLlT •♦#"; UStsTl CHR; DS»a<, LIT " WORDS"; 
' JUMP OUT)? 


36240000 ' 
36250000 


'° DSjs6 LIT " WITH "; 

" sii=a; 

'^ H TF SCs" " THFN BFGIN bllsbl + i; IF SC NFQ " •• THFN 


36270000 '" 

36260000 

36290000 '^ 


'\ BEGIN DSs*UlT " «; DSS*CHR; GU L^ END END ELSE 
"■ BEGIN OSJsCHR; 60 Li END* 
," nSt»9 1 IT " FXPErTFD"; 


3630000b '^ 
36310000 


'^ end; 

" boolean stream proceou«e tpemrkcheck(a); value a; 


36330000 " 
36330100 " 
36330200 '^ 


LABEL L; 
SI«»LOC a; 

^' TF SC NEP ♦'**• THFN 


36330250 '' 
36330300 

36 3 30(100 ^' 


" BEGIN 

" Sijsa; 

" IF 3C = "'?" THEi\| 


36330500 '' 
36330550 '^ 
363'^060Q ^'' 


'' BEGIN 

'* si»»si + i; 

" IF Sc*«*" THEN 


36330700 '' 
36330750 

36 3S0800 ^' 


" BEGIN 

" TALLYJsi; 

'0 TPEMKKCHECKjsfALLY; 


36330900 '= 

36331000 

36331100 30 


'' ENO; 

" end; 

'^ EKD 


36331200 ^' 
36331300 32 
3633U00 33 


" ELSE 

''^ BEGIN 

'« sijsa; 


36331500 ^ 
36331600 =■= 
36331700 36 


" LJ IF SCs"*" THEN TPEMRKcHECK:sSI fc;|.Sf: 
^ BEGIN 

« sii«si+i; 


36331800 "" 

36331900 

36 332000 


•" GO l; 
*' end; 
« E\p; 


36332050 « 
36332100 ^1 
36332P0Q « 


"■ ■■ end; 

•* procedure iodanalyz(key>junk,iqd»mask)> 

value ket*junk*ioo#mask; 


36332300 
363^0000 
36350000 


•« INTEGER i^EY; REAL JUNK, IOD» MaSk; 

♦' BEGIN 

« DEFINE BUFFSsJUNKBUFFERtOJ#UuTQUFFER#; 


36360000 « 
36370000 *' 
36380000 « 


« FORMAT BOTFCBOT")* 
* EOTF("EOT«)* 
" EOFFCEQF - OZl''}^ 


36390000 « 
36«O0000 «> 
36410000 5. 


« 020F("PARITY - D20")# 
» NOERRFC'NQ ERROR BITS"); 
'^ CLFARfOUTBUFFFR»WBl)FF); 


36420000 « 
36^30000 53 
3A440QQQ 54 


'^ IF BL(MASK.t27UJ) THEN 

* IF BLCMASK.C29in) THEN 

^■'^■^^i,..,^ . .■:,:^ .^^...■^^^.■C... IF BLC100.£22:1J) THEN 


36460000 =5 

36470000 

3ft4a0000 M 



>r 



2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



19 
20 
21 
22 



• 
• 



23 
24 
26 
2« 
27 
28 
29 
30 



31 
I 32 

33 

34 
I 35 

36 

37' 

38 

39 

40 

41 

42 

43 

44 

4S 

46 

«7 

•8 



49 
50 



51 
52 
S3 
54 

55 

56 



ELSe 



JtXJ^JL 



rtHlTtC JUNKBUKF EK[*J/bOTF) 
Else WKITtC JU.\KRUFFE:RC*],t:DTF) 
WH rTFC^IJNKi^llFFhHf *J >1-:0F,F) 



36^V0000 
36^00000 
36510000- 



ELSE 
CA S E K E Y 



IF BLCMASK.t 28113) THEN 

i^wiTFf JiiiMKHiirrrHr*i.n-gnp^ 



BEGIN 



.VKlTE(JUNKBUFFER[*]^NaER«F); 



36520000 
36S30000 
-^fi^annnp 

36550000 
36560000 
365/0000 



I00ANACvlUNK*l + lOO,C22»U#l#l + I0D.t2Hn, 
nrrMAL ( tnn. f 5if i v. riHf.-f»^ ) ; 



lODANAC JUNKfOf l.l + lOD,t«!15n*0£CMALCIOD.[SF])* 

auFFSj; 
iQnANAfuiiMsof iQnag;^: u»i,if m n,r 2nn » _____ 

DECMAwClOor,CSF3)» 



36580000 
36590000 
■IftflDQOOn 



36610000 
36620000 
366 300.00- 
36631000 
36640000 



BUFFS)* 

TnnANAf.JnNK#n»i*i4Tnn.r2ni).nFrMAi Mnn, [spTt. ^^ A^r )o oo 

BUFFS); 36660000 

10DANACsiUNK^O/.0'0^0*BUFFS); 366 7 0000 

3ft6aQOno 
36690000 

end; 36700000 

DEFINE I0DAKALY7£A»iaaANALY/fK£Y>JtlNK>lQn.MASK)#{ 36yiQ nnn 



EM); 



WRIT£C0uTFI^WflUFF,0UTBUFFER£*3); 



XCODE STARTS HERE_ . _ 

savedelayisdelay; 

DELAY »=sO? 



C0MMENT OON*T DELAY DURING RETRYs; 



RETRYINGI* BL C MASK . t 1 J U ) / 
XCHECK FOR EOT AND BOT 
IF BL(R.[2»1]) AND 3L(R.C^s>ti]) th£n 



BEGIN 



M0D3ICS»«tRUEI 

IF R. CI 3? 23 NEQ THlN 



BEGIN 

R.t2/« l]« = li 

IF RL(fNOT dL(MA5K.C^3:9]) ) 



sO THEN 
IF NOT RETRYING THEN 
BEGIN R<c*Rf GO XlTJ 



AND CbLCR.[25»6]))) 



End; 



R.C27U] Jso; 

end; 



end; 



AiRt*ABREV OR lODl iSS O; 
If NOT PSElg(lQD GTR AND 



ABS(IOD); 
FILL JUNK8UFFERC*3 



NOT RETRYING) THEN IQPr 



WITH 



"500 WRITE"* 
"SOflSPACt"* 
^5QQ£RASE"» 



♦'6OREWIND"; 
IF RETRYING THEN 
BEGIN 



jUNKI«jUNKBUFFER[KEY-n; 
WRITE(DUTFICDBL]); WRI TE ( OUTF I ) ; 
WRTTFfnuTFTCnBL3»RFTYF*RTYCQUNTmHTYcQm>lf*l. 



36/10100 
36710200 
^671030X1- 



36710400 
36710500 
36710600- 



36711000 
36720000 
3673 0Q Q.a_ 

36740000 
36750000 
36760000 



36770000 
36760000 
36790000 



36800000 
36810000 
36880000 



36830000 
36840000 
36850000 



36851000 
36652000 
36860QOO 



36870000 
36880000 
369^0000 



36900000 
36910000 
36»2QnQQ 



36930000 
36950000 
36960000- 



36970000 
36980000 
36990000 



n 
2 

3 



14 I 

15 

16 

17 ( 

18 

19 

20 I 

21 

22 

23 ' 

24 

25 

26 ( 

27 

28 

29 ( 
30 

31 

32 ( 

33 

34 

35 4 

36 

37 

38 I 

39 

40 

41 4 

42 

43 



47 
48 
49 
50 
51 
52 

54 
55 
56 
5^ 



e 



rf 

2 
3 



IF H.C25J8]=MASK, [25883 OR KtYsj THEN 
"(BAD)"); 



FND 



EISE 

BEGIN 



ELSE 37000000 

37010000 

370iiQ000 



COMPAREnATAiaFfllSEi 



RTYCGUNTiso; 
ERRORJ=ERRCR+i; 
IF CUNF THEN 



37030000 
37040000 
37001000 



ERRQHi};sEHRORi} + li 



IF REAL£8L(R. 125183) 
BEGIN 



AND NOl BL(MASK,[25»81))^0 THEN 



370b0000 
37060000 
370ft0l00 



37060200 
37060300 



LnGBUFFCRElH* LOGflUFFERtlU Q[?»gll3& 2C9ta5»31i 37060400 



10 

11 



L0GdUFFERC2J«= TKANS; 
LCaBUFFERC43:5 IUd; 
tC , GBgFFE . R[3Ji- HtSULT; 



37060500 
37060600 
37Q6Q7O 



13 
14 



L0G8urFERt9J«» 0/ 
LdGBUFFEREiOJ** U; 
MAKELQGIa TRUE! 



37060000 
37060900 
37061000 



16 
17 
18 
19 
20 
21 



22 
23 
24 
2S 
26 
27 
28 
29 
30 



end; 

IF IGNCRtRRORS UR BL ( I OD . t 2 : U ) ThEN GO 
IF INQISEUNERRQR U>^ Bl ,( j Q p i ,,[g; i j ) THEN 



xit; 



BEGIN 



37062000 

37063000 

XH03370640QO 



WR I TE ( OUTF I [NO 3 > HOI SER ) ; 
WRITEC0UTFHDBL3)J 



»140337064l00 
itl40337064200 
X 140337064^00 



GC xit; 



end; 

WRITE(0UTFl^ERRF»CjJNKisjLJiNKBUFFER[KEY-U)«[l;5]^ 



X140337064400 

*140337064500 

37070000 



JUNK); 
WRiTCCOUTf I * SULF* JUNK , C 1 » 53 # 7 ) ; 
W RI T£ ( 0UTFI £DBL 3); 



wRITECCUTFUDBLJ»BLKF.TRA.\JS + iaL). t22:i3); 

iooanalyzer; 

ViRlTE CD UTFT EPaLj )^ 



370a0000 
37090000 
371 0Q QQQ 



37110000 
37120000 
3713QQQ0 



31 

33 

34 
3S 
36 



If KEY* 1 THEN 

IF PI«I0D1,CFF3 NEQ EMPTY THtN 

BEGIN 



37140000 
37150000 
37160000 



GETPATTERNCP* 1); 

WRITE(0UTFICDdUJ'EXPF»E««iaLJ.CSF3# 
I F BC l , THEN "9CL" U S E "1'^") ; 



37170000 
37160000 
37 1^00 00 



37 
38 



WRITEC0UTFICDBL3); 

MOVEANOWR I T£ ( TRUE* E vFALSE* OUTF I * 08UFF 3 ; 

ifrlTEtOUTFilDBL]); 



37200000 
37210000 
37220Q0Q 



40 
41 



42 



45 
«6 
17 
48 



•9 
SO 



SI 
52 

a 

M 

55 
56 



END ELSE 

IF 8L(>'AbK,C27J13) THtN 

BEGIN 



WRITE (OUTF I C 08L 3 » TAPEMARKEXPF J ; 
WRIT£{0UTFIC0BLJ)J 

FN.n ■XL'Sr-. :.:■.;:■ ■ / ■ : .: ■■ '■■■-• -. ■ : , /• ■';. 



37230000 
37230010 
372iOO?Q 



37230030 
37230040 

172 3QQS0 



ELSE 

IF KEY»2 THEN XWRITE 

BEGIN 



IF 8L{I80.t2Hl3) OR MQD3I0S THEN XBINARY 
BEGIN 
. FlsI0D.[SF3; 



37230060 
37230070 
37230080 



wot 



37230090 
37230100 
37 23 Q110 



WRITECQUTFItDaL3*0wF#E*lF 8CL THEN "BCl" 
ELSF "INT"); 



37230120 
37230130 
3723Q14Q 



WRITECOUTFUOSLJ); 37230150 

M0yEAN0«RITE{TfiUE*E»FAL!»E*0UTFI#I00,tCF3); 372 30160 
wRlTE(nUTFlCDBi3>; . ■>7230l70 



^ 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 



16 



19 
20 
21 



22 
23 
24 
2S 
26 
27 
28 
29 
30 



31 
32 



34 
35 
36 



37 
38 



39 



40 

41 



«3 



46 
47 



52 



END ELSE 

IF TPEMRKCHECKdUO.CCF]) ThtlN 
^yRITFCQUTKHQHL, IfTMWF) 



372:10180 
37230190 

3723Q200 



ELSE 37230210 

BEGIN 37230220 

FtgCTt»HEALCTPgMRKCHEGKC-tT0D.[CF])M) .[CFl^72 3Q?^n 



lOO.tCFJ+RtALCT.CFF] GTR 0); 



GU ^iD/ 



end; 



end; 

IF ABR THEN GO lOOSi 
WRTTEfnuTFTtnBLUULFOJ 



WRlTt(CUTFI[DBLJ»URI(iF); 

end; 

JL,MASK,[a6;^J LS$ 3 TH&N IODA\ALrZE R E L SE 



lOOSt 



WRlTE(OUTffI»ORlGlNAtF); 
WRlTFfQliTfllJFF£Rr*1«TQnFU 



EDlT(lMOD*CUTBljFFERL3 3*0»l# JbNK*JUNK,0); 
WHlTE(OUTFI»6^0ur8UFFERL*n; 
WRlTE(0UTBUFFERi:*3#R£SF); 



EDlT(l*RESULT»0uT8UFFE|t3]»0*l'JUNK*JUNK#0)J 
WRlTE(DUTFItOaL3'6*QyTiUfFeRt*n; 
-IF EtgRESlJI,T.f?5ifi3sO THEN 



ELSE 
RFfilN 



WRITE(0UTFI*N0ERRF) 



IF BLCE.C46U3) THEN 
BEGIN 
- WRTT£CnuTri.Ql7F)f 



GO i'lx; 

end; 

TF RLCE. Uanl ) THFN 



IF BL(R.C2:n) THEN 
BEGIN 



IF BL(R,ciiti]) Then 

BEGIN 
WRITFCQUTF1^Q1 9F )/ 



GO Six; 
end; 

TF BLfR.Cggtn) THFN JURFAn 



BEGIN 



IF BLCHaUMJ ) 

BEGIN 



THEN XBIJT 



R#E27»13l«i; 

IF BL(MASKVt29lli> THEN 

WRITEtaUTF I*8QTAEF> ElSg 



WRITt(UUTFI»BOTF); 

GO six; 

FND FLSE 



IF BLCR.tUJl]) THEN 
BEGIN 

IF BL<MASK«C29U3) 



THEN 



rtRlTECuUTFl^tOTAEF ) 
WRITECOUTFI/EOTF); 
R.[27»l]:si; 



ELSE 



37230240 

37230250 

JLZ2JQ260- 



37230270 

37230280 
3 7240000 



372b0000 

37260000 

-J72/0QQQ. 



37280000 
37285000 
37290000 



37300000 
373i0000 
37320000 

37330000 
37340000 
373^0000. 



37360000 
37370000 
37380000- 



373^*0000 
37400000 
.17410000 



37420000 
37430000 
i744QQ0a.. 
37450000 
37460000 
374 70000 



37480000 
37490000 
375UQQQQ 



37510000 
37520000 
375 30Q QQ 



37540000 
37550000 
375 60000 



37570000 
37580000 
3759QQ0Q 



37600000 
37610000 
376 2 ,0Q0iL 



37630000 
37640000 
37650000 



37660000 
37670000 
37680000 



£Np ; . 



IF RL(BLC£) 

GO Six; 



AND BLC3"367«))»0 THEN 



37690000 
37700000 
37710000 



# • 



9 
10 



12 
13 
14 

lis" 

17 
18 



19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 



34 
35 
36 

37" 



38 

3S 



40 



42 
43 



44 
45 
«« 
47 



•9 
50 
S1 
52 

a 

M 

55 
56 



END ElSl 
EL'GiN 
I F BH8. L U 



n ? TH £ ^ ^&LAiNK TAP£ 



BEGIN 



WRITECOUTFI/BLNKTPLF); 

GO six; 



end; 

IF 8LCR, 
REfiTN 



C14« U) THEN 



IF 8L(MASK,t29U]) TH£N 
WRITECGUTf I#EOTAEF) E^SE 
WflITE(QtJT n *F n TFJJ 



R.t27:i]:si; 



EKD ^ 



end; 



END ELSE 
BEGIN 

WBlTE Ca UTF I«D1 9F?; 



GO SIX> 

end; 

IF B L( R . [24:13) ^h e N %READ 



BEGIN 



IF BLCE.C^nU) 

BEGIN 



THEN 



WRITECUUTF I»Ii\VADUHF); 

QQ six; 



■SUQX 



IF 8L(R»C27«n) THEN 
BEGIN 
IF RLCMASK.rSZn 1) THEN 



WRlTE(QuTFl»tOFAEF) ELSE 

WRirECUufFlfEQFF); 

IF NOT RlCH.f ?fl:i l) ThFN 



GO Six; 



TAPrPARTTYl 



end; 



IF ABS(KEYJ LEfi 2 THEN 

retrytog:=tru£; 

IF BI.(F.C 43» 1] ) THFN 



BEGIN 



377.i0000 
37730000 



37750000 
37760000 
37770000 



37780000 
37790000 
379UQ000 



37810000 
37820000 

37fl3Qonn 



37840000 
37850000 
37800000 



37870000 
37880000 
37890000- 



37VOO000 
37910000 
379; 



37930000 
37940000 
37950000- 



3796000C 
379/0000 
3 79 8 0000 



37990000 
38000000 
■16Q10000 



36020000 
38030000 
36040000 



38050000 
38060000 
36070000 



38060000 
38090000 
3fllQ(JQQQ 



IF R£TRYTQG«»N0T blcmask , C28in ) 
. t^RITFfauTFI.DgOFy FLSE 



end 



WRITt(0ulFl,D20AEF); 



38110000 

THEN38120000 

3fll3QOQQ 



FUSE 



38140000 
38150000 



end; 



WRlTECOUTFI^aLNKTPERF); 

60 six; 



IF BL(E. [41:135 THEN 
IF bLCE.[43:n) THEN 

begin 



38170000 
38180000 
3ftl 9QQ0n 



END 



WRITECQUTFI*WRTL0CKF»UNL); 

GO Six; 



38200000 
38210000 
38220000 



BEGIN 



38230000 
382f00fl0 
I8?50Q0Q 



WRITECDUTFIMNVADDRF); 

GO Six; 



end; 



end; 

IF RETRYT06««BL(t,[43:i]) 



38260000 
38270000 
3B280Q0Q 



T*itN GO tapeparity; 



38290000 
38 300000 

3 831 Q0QQ 



• • 



SIXJ 



9 
10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 



36 

37" 
38 
39 
40 

41 
42 
«3 



45 
«6 
47 
48 
49 
50 
SI 
52 
S3 
S4 



S5 
36 



IF 



RETFniNG 
I F K E Y' 



BFGIN 



ANO NOT 
'1 Th E; N 



BLCMASKJ THEN GO XIT; 



383ei0000 
38J30000 
38^-^0000- 



irtNOT RETRYING) OR BLCMASK) THEN 
READERHQRdOD.KRQCQUNT); 



38350000 

38 360000 

itl4063fl^Q0Q QO 



END ELSE 

IF KEY=3 ANO NOT RETRYING 
IF SUF.KR IhFN 



THEN 



WRlTE(UUTFICD8l.3»SPACrRR*WRDCOUNT); 
IF RETRYING OR ABR THEN GQ PAGECHECK; 
T F H F TR Y TH fi TH EN _^ 



38'*20000 
38^ii0l00 

3a^?02ai3. 



BEGIN 



a;i40638*20300 
38^21000 

:^8^iQono. 



WRiTECOuTFItDBL]); 
NT 2 ' = TAP EPAHi TYRETR .Y (R^fU D?f 



JF WAKELOG THEN 
BEGIN 

LnGRurFFRr9]»« 



38'^aOOOO 

SS'+^lOOO 

-1B-A5QQQ0. 



RTYCQyKT4-RTYCnHMTt 



LQGeUFFER[10]:s NT2,[CF]; 

end; 

if key = 1 then , 



38'»50l00 

38«S0200 
_iiiJ.5Q30fl-. 



BEGIN 



38^b0400 
38450500 

aa'iftoooo- 



IF E»»NTg*tCFJ«0 THEN 
IF COMPAREOATA THEN 



tuSE 



WfilTECQUTFI^BAD) 
BEGIN 



38470000 
38520000 
38530000 



Rla-RJ 
WRITECOOTFUSUCCESSF) 

END : . — ^ 



3854000C 

38550000 

■ 38 5501 X1^- 



ELSE 

IF ES16 THEN 

WHlTE(OUTFL' l rtR £CO VRF) 



3at55020C 
38560000 
-3 8560 4-aO- 



else 

IF E»32 THEN 

wRiTrcouTrTsSLNKTPFrBRrr^ 



ELSE 
BEGIN 



JLAnFf^RQRdQQ^ WR QCQU NT ); 



IF E«8 OR E«128 THEN 

WRlTE(OuTFI#aOO) 
£ k§E ___^______ 



38570000 
38580000 

3s5V00JiC. 

38600000 
38610000 

JLa62 0000- 

386i0000 

38640000 

X14063fl65Qn0fi 



IF COMPAHEDATA THEN 

WRITECOUTFI^BAD) 
LLSE 



38660000 
38670000 
3R6aQQQQ 



BEGIN 

V<Rn£(0UTFI,0OD); 
R|g-Rj 



38690000 
38700000 
38710000 



END, 



38710100 
38720000 
3B720100 



End; 



END 



ELSE 
BEGIN 



IF NT2tC€F3gO THEN 



BEGIN 
WKlTt(QUTFI»bUCCESSF); 

k«=-r; 



38720200 
38730000 
38740000 
38750000 
38760000 
36770000 
38780000 
38780100 
36780200 



..^ mi 



END ELSE 

writccqutfi>irregovrf); 



38780300 
38790000 
38800000 



>T 



6 
7 
8 
9 
10 



13 

14 
■IS 

jie 

1 

m 

18 



19 
20 
21 
22 
23 
24 
26 
26 
27 
28 
29 
30 



END 



WRITECCUTFILDBL]); 
fLSt 



BEGIN 



WRITE(OUTFUDBLJ); 

IF BLCMASK.C26J1J) AND 



38802000 
36810000 
38ft300Xm- 



38B31000 
38840000 
3^850000- 



WRIlECOUTFI^STftANGL) 
WHITEC0UTFI*N0THV); 
HRlTF..(nUTFUnBlj)i 



ELSE 



end; 
pagecheckj 
if pre the^ 



38*360000 
38B70000 
3eH7^r?000 



XllA. 



IF PAGE THEN WHl Tt ( OU TF I [PAGE 3 ) ELSE 
WRlTECCUTFl[DBLJ*STAh); 



38880000 
38885000 
38910000 



389iJ0OO0 
38930000 
3 B 93 0100 



IF MAKELUG THEN LlNKlTUP; 38930200 

DELAYt*SAVEDELAY; 38939300 

- 3B900000 

%********************************»******•******* ***********************^^3a95000C 
REAL PROCEDURE T aPEP aR I TYReTR Y ( R* lUD ) > VALUE RfOlOO; 38960000 
JilLkL RfniOr..? ^ 38 97Q 00Q 



end; 



BEGIN 
XnMMENT 



FUNCTIONALLY THE 
THF SAK F N A HFt « 



HOWEVERJ 



SAME AS THE MCP HQUTINE BY 
GIVEi> UP SOMEWHAT FASTER 



RE AL 



38980000 

38980005 

- 3898001 -0- 

38980015 
38980020 
3896Q025. 
38980030 

38980035 
3 fi99 Q00n. 



Tl*T2/T3#Z*Y»SlZE*LIt^lT; 
BOOLEAN OT; 
I NTE G ER i ; 



390Q000G 
39010000 

39Q;^onQc 



31 
32 
33 
34 

35 
36 
37 ~ 
38 
39 



OWN INTEGER MbK^KEY; 

OWN REAL RESULT»leO#SPACENASK^SPACEIOD»M#w*MODE*N; 

OhN REAL J*Ki 



39021000 
39030000 
390^0000 



DEFINE ERASElUDsSPACEI*iASK»i 

Ok^N REAL BSIZL; 

DEFINE RLsRFALtf; 



39050000 
39060000 
390^0000 



LABEL 



GIVEUP^ 
RP» 



39100000 
39110000 

39 12O Q0Q 



40 
41 
42 



OWN 



LP» 

Lx; 
R EAL t^ ; 



39130000 

39140000 

3JJl50QQ0 



45 
46 
47 
«8 
49 
50 
51 
52 
M 
94 
55 
56 
5' 



LABEL XIT; 

BOOLEAN P80CE0URE OOTHEI OfjOWC R* OT ) ; 
REAL m BOflLFAN DTI 



VALUE Hi 



39160000 
39180000 
3oi9Qnon 



44 \ 

45 

46 

47 ( 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

56 ( 

57 



BEGIN 
LABEL 
INTE G 



xiu; 



39200000 
39210000 
392 ^0000 



FOR YUl S 
BEGIN 



TEP 1 UNTIL 18 DO 

IF BLCR>r24lU) TH&N 



39230000 
39240000 



BEGIN 



IF OT THEN IF I0UI.CIFLJ»1 
GETPATTERN(-EHPTy>B); 



THEN 



39260000 
39261000 

39262000 



WHILE T4 GTR TIMECU DO 

WHEN(Oi; 

T4t*TIMECl)*4J 



39270000 
39280000 
3929000 



# • 



18 
19 
20 



22 
23 
24 
25 
26 
27 
28 
29 



32 
U 

34 
35 



36 

37" 
38 



40 
41 
42 



43 



48 
47 
48 



49 
50 



a 



S6 



end; 

STARTAPElQCIOD^-HLbCLT); 

IF HT THEN M.SK ; -M.Sh XR [<:/ » 27 1 1 3 J 



IF B004EANCTIMEC-2)) 
lOriNlSH(IOO,RESUUT»' 



39JO0OO0 
39310000 

a.ftj.UQOo 



THEN ST0PPERI»-Ii S;140239312000 

•RL(OT)&MSKt25t40l8 3#KE:Y)i 39320000 

39321000 



IF BL(HESUt7.[29:U) ANU HL ( RESULT . t 2 U ] ) THEN 39330000 
BEGIN 393«0000 
IF BKHFSl.na ]?8 1 .1) THEN . ^j^^mxo, 



IF BL(100.t2«8 13) THEN 

TRANS t»TRANS-liI0DUt22 111 ELSE 
BF6TN 



FNO 



DUTHElOiNCW: 
m0dE:=16; 
Ft.t>E 



•THUE 



f » 



IF BL(RESLLT.tll»l3) 
BEGIN 
. MUnEt*lftt 



THEN %MEM PAR 



39360000 
39370000 
39380000 
39J9000G 
39^00000 
39 4 1 00.0. J- 



39420000 
39430000 



CUTHf IDNOy^J'TKUE; 

GO xio; 



END, 



39450000 

39460000 

-39470000. 



IF RESULT. t 13123 
END ELSE 
Gf] Tn XT 01 



NEQ THEN? Y»»18; 



-xmr 



end; 

RESULT. [2/!l3:si; MCDE5»32; 
nTt?FAL^E> END IIF OOTHF inNCi^^ ; 



39480000 
39490000 
39500000 



DEFINE D0I0NO«« 

BEGIN IF DOTHEIONOWC«*OT) THEN GO XlTiEND*; 
TNTFfiFR P RnpFOURF S PAf .E TTHAr . Kf R . ^1 T nn . nT H V At . .UF ft*OTOP» 



39bl0o00 
39iJ20000 
39530000- 



REAL R*0I0D; boolean UT/ 

BEGIN 

LABEL Xlb; iKTFGfcR Q^^ASK; 



39540000 
39550000 

■tgSbQonn 



LIST bsuel(bsi2e); 

DEFINE D0I0N0W»1F DOTHElCNOk«CR*OT ) THEN 

BEGIN SPACEITBACKtsa; GO xis; 



39570000 
39580000 
3y5VQ QQQ 



FNDtff 



FORMAT ERASERRFC'CQMwEnT: ERASE EHROR OETECTED"* 

/*X9*"-AfTER RETRY* LENGTH OF "* 
"PRECEDING REC0RD = 'SI4#"> NOT SAME 



39S91000 
39600000 
396l00aiL 



«AS BEFORE (8AD)'''/»X9# 
•••GARBAGE WAS APPARENTLY LEFT 
•♦IRE A ERASED'*)^ 



39620000 
39630000 
396«0000 



IN 



39641000 
39641100 
39641200 



SPACESC'cOMMeNTJ "^U/" BACKSPACING OPERATIONS "» 39641300 
"WERE REQUIRED TG PLSITlON "* 396<4l40G 
/*X10/" THE TAPE FQr^ CHECKING THE "* 39641500 



-LENGTH UF THE PRECEDING RECORO '•# ' 39641600 
/*X9t»**BACKSPACING WAS DONE UNTIL THE "# 39641800 
•♦NUMBER OF WORDS SPACED OVER EXCEEDED •% 39641900 



/*X10*"THE NUMBER OF WORDS WRITTEN OR 
••UNTIL EUF")* 

precfc^^commEnt; before rftry> length of '•* 



"PRECEDING REC0RD«**H4>''# REMEMBERED "j 

••FOR TEST Further ON") # 

PRFrf it ••comment tAFTgRRgTRY^LgNSTHar «. 



396^2000 
39642100 
39642 tlQ 



"PRECEDING RECaRD»"M4,"* SAME AS "# 
"BEFORc (QUOD)"); 
IF TRAKSgl THEN XFlRST RECORD SD HEtslNQ 



39642120 
39642200 
3964230Q 



BEGIN 



39642400 
39642500 
39650000 



lCDl»3''4200OO000O«A0I0DC3t3»53; 



39660000 
39670000 
39680000 



2 
3 



END LLSE 
BEGIN 

I F N 



G TR Q TH fc^ N WR I IF - C Q UTF U OB L 3 ) J 



396^0000 
39/00000 

39?onoso- 



KEYJaa; 

lODtaSPACEIOni 



39/10000 
39720000 

3 9/ 3ciaao- 



CMAi>K:sMSKi 
CO bEGiN — 



msk:5Empty; 



39?«000G 
39?41000 
397^0000 



DOIONOw* 
TRANSIsTRAlVd + i; 

Jl«j4l i 



39760000 
39770000 
39780000 



10 

11 

12 



13 
14 

ri5 

16 



19 
20 
21 



END UNriLCCMJsrtE^ULT.CCF ]-SHACElOD,[Cn + M) 
OR t3L(HESUur.C27:n)) AND J GTR 1/ 

TRANS;»TRANS "2J 



LSS 



39790000 
39600000 
39610000. 



IOD«*SP*CEIOO«OC22J47UJ; 

OOIONOW; 

rtR I TE CQU TF l fSPAC& Sf J ? > 



39820000 
39830000 
39830500 



WRITEC0UTFUD8LJ ); 
IF N=0 THEN 
WH]TFCUUrFU,nHI-lfPHhTF#fciSIZF.;g 



RESULT. ECFJ-ian.CCF]) 
ELSE 
IF fiSn e N£ Q 3SU£8g'«£3uLT.CCF3 -i Q D , C CF 3 THE N. 



39831000 
39840000 
39841000 



39842000 
39843000 
39850Q0Q 



22 
23 
24 
26 
26 
27 
28 
29 
30 



BEGIN 



WRlTE(0UTFI#ERA3E:KRF»8i)lZEL)^ 
WRITE(UUTFUDBL3); 



39860000 

39880000 
39690QOQ 



SPACElT6ACKJ»i; 

GO xis; 



END ELSE 



39900000 
39901000 

3 9Vi oono 



WRlTECGuTFlCUdLJ^PRECFWeSULL); 

mskjsomask; 



en d; 



39911000 
39912000 
3992QQQQ. 



31 
32 
33 



xisj end sf spageitback; 

STREAM PRBCEDURE «0T01 ( 2^ Y>S^ SK^GM*D ); 
REGTN . : . 



VALUE Z#Y#SVSKi»GM*Di 



39930000 
39930100 

T99302nn 



34 
35 
36 

37" 

38 

39 



sijss; si»sSi+3k; di;«o; 

Y(16(DSJ»32 CHR)); 

Z ( n s>=fl chr ;; 



39930300 

39930400 
399305QQ 



SK(DS»*LIT 
DU«0I-SK; 



SlJoLQC 



Gw; sir»3i+7; usjschr; 



39930600 
39930700 
39930800 



40 
41 
42 



STREAM PROCEDURE RnTG2(ZVY* S# SK# FL» FK# U J ; 
VALUE ?#Y*S*SK*FL'FK^D; 

REG In ^ , ^ : 



39940000 
39930000 
39960000 



46 

47 

te 
49 
so 

51 
52 
53 

54 
55 



s 1 1 * s ; s I » = s I ♦ SK ; D I « sOJ D I » »0 1 *? i 

Y ( 1 6 ( 3 2 ( OS I » C HR ; S 1 1 * S f 2 ) D I » » D 1 " 2 ) ) ) ; 

ZffiCnSlaRHRl SH»ST*2J pTt«QI*2VU 



39970000 
39980000 
3 999 QQ00 



SU'LUC FL/ 
FK(DS:sCHRi 



Si:=bi+7; 

si:=si-i; 



Di:=oi-2); 



end; 



39991000 
39992000 
^OO OQOOQ 



DEFINE 



SPACC8ACK»BeaiN 

ir flOQLiANtNTlt8SPAcrtTftAf!KCa,QIOD«QT>l 



« 1404400 100 00 

«lft04400il000 

THEt^ 40012000 



GO GIVEUP; 
IF NT1S2 THEN 
XNUitJ 



GO xit; 



X140440013000 
»;140440014000 
^UOgftOOnOflO 



FORMAT 

BACKFC»CQMMERn AT THIS PUINT THE TAPE WAS ♦♦» 
"SP A CFO, INTO T HE .VACUUM CQLUf^ N .ANQ ^ t /t „ 



40020000 
40040000 

uoobunoo 



• • 



h 



10 

11 

12 
13 
14 
IS 



16 
17 
18 
19 
20 



21 
22 
23 
24 
2S 
26 
27 
2B 
29 



30 

Si" 

32 

33 

34 

35 

36 

37" 



39 

40 



45 
46 
47 
«8 
49 
50 



52 
53 



55 

5« 



X9»"THtN iiPACLU BACK TO yiQCK *"»Ib)* 
MOVEDFC'INFORMATION MUVED TU 'SA*/" OF BUFFER 
"T O A G R£ £ W I TH GR i Q i iN AL, i y U ")J 



MSK I «KE Y i sMOOE I »W * » J « bK »*B S I ZE » «N » ■T4 » sO; 
XTNITtAlIZE "OWN" VARTAflLrS NOT TNTTTAII2Fn 



XEL5EWHERE 
IF BL(Fi.C2^J13) 
BEGIN 



THEN *READ ERROR 



SpACCMASKt»R£AL(8t(0I0D,C2Ui!3x3»'iin«) 

NOT BLC3''0U3")); 
SPACElQDI»OlQD&lXBt38MQ3& U 23»478n; 



EQV 



FCR M;=i STEP I Ontil i 00 

GEGlN SPACEinD; = bPAC£I0D<iiiJPACEMASKC21 »46;2j; 
'^SK?';16> rtFY;*i; 



FOR Ntai STEP I UNTIL 2 
BEGIN lOD«»»i»PACElOD; 
IF N*M fiTR ^ THFN 



DO 



LP: BEGIN 

OaiQNU»<; 
END ELSF 



IF NOT (8L(H.C29in} ANU BiCR, t2l U } AND 

BLCR.MStUH THEN GO LP; 
TF Rt (RFSULT.ryem V THEN 



dEGIN 

aT«sBLC3); 

MSft»=ML]OE;TOJ 



ELSE 



END 



BFGTNJ MnnEtae? 



IQD»''niOD,? 



MSl4»si6; 

ItlDJ=UI0D4SPACEMASKC2H/4 3:2Ji 

ENU; 



DOlONOwi 

IF NOT BLCRESULT.CZesU) THEN GO XIT; 

TF MnOSlaS THFN IF HI (nIOO.C23ini THFM 



BEGIN 



MSK:=CJi 

^?«TQr)«='Qiun&.sPA(;FWA5Kr?n4n;?H. 



(OIOD.CCF)+C 0100, [8110 3-1)4 
OIO0CU22«U)ECTC3; 



IF BL(HESULT.[2ailJ ) THEN 
BEGIN 
tJTUBLC :<.)f MfjUFUO.? 



a00600G0 
40070000 

aouaOQOo 



40090000 
40091000 
anQ93nnn 



40093000 

40100000 



40120000 
40130000 
40140QQQ 



40150000 
40160000 
.401/00.00- 



40180000 
40190000 

40?noooo 



40210000 
40220000 
-40230000- 



40240000 

40250000 
40260000. 



40270000 
40260000 
40290000 



40300000 
40310000 

40330000 
40340000 
4Q35 OQ00. 



40360000 
40370000 
^0360000 



403V0000 
404UOOOO 
40420000- 



40430000 
40440000 
4Q4SQQQQ 



40460000 
40470000 
4n4flQ000 



ioo«»Qiooi ooiONow; 40490000 

IF NOt BLCRESULT. [28113) THEN 60 XITMqSOOoIo 
lODI»Z&SPACEMASKr21t46t2Jr 4Q510Q0Q 



Mi»KJ»16; 

DOIONOW; M0DEU128; 
JF BL(RESljLT ,t 2 9} l]) 



TH EN 



BEGIN I00J*0lDD4SPACEMASKt2l»43«23J 
M0DE»»8; 



40520000 
40530000 
4054OQ0 



RPt 



DOIONQW; 

IF BL(REauLT.C2a»U J 



40550000 
« OS 60 000 
40370000 



THEN 



40580000 
40590000 
40600000 



GO. TO LX ELSE GO XIT; 



end; 



END; 



40610000 

40620000 
40630000 



9 
10 
11 



Js? 



h- 



1 

2 
3 
4 

5 
6 
V 
8 
9 
10 
11 
12 
13 
14 
jlS 

h" 
17 

18 



Zs=Ab5C IGO.CCn-RLJOUT.CCF]); 
IF IDD.[21»23«0 ThLN 
^t~^"REflL(R(i.ai.lLT.Ci5M]»0)8 



IF I00.C8J10] LS3 Z 
BtGIN 



40640000 
40650000 
40660000 



THEN 



40670000 

40680000 
4Q6S)QQQ0 



IUD»=OIDO; 

GQ Rp; 

fcNDJ 



MCDEJsO; 



40/00000 
40710000 
407«i0QQ0 



IF BL CI 00. C 22113) THEN 
R0T01(Z*2 OIV 64*RESULT»CCF3*l# 
(R ESU LT. tl g»43 *i). U& *3 3^ 



40730000 
40740000 
40750000 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37" 



t. xt 



IF BLClOD.t^iU U) THEN 

ELSt 3"37"*OIOD,LCF]) ELSE 
HQTU2(Z,Z OIV 64>RtSULT«[CF3-l» 



CRESULT»tl5»3U7).t45 5 33* 

ir BLcioD.caiiu) then o 

ELSE 3"1 4">t8»HF§ WL T ,U&»33 ) 



40760000 

40770000 

-4Q/ 600 0g- 



40790000 

4oeooooo 

40a|00QQ 



.U5J33,CI0D.tCF]); 
*{gyxsii MSK{=tMPTY> 
WRITFCQUTFICDBI.. 1)» 



*1501 



WRIT£(UuTFU08L3*MQVEOFf IF 

BL(lOO.t22:n) Then 
5 else iif 



40820000 

40830000 

-408 3100X1- 



U' BLCiao.[22SlJ) THEN 

"FHQNT" ELSE "BACK"); 

ioa; = .j"i400ooG05"^CJiQDE?i;?i{r']^ 



40840000 

40850000 

■40860000 



40870000 
40880000 

jLodiuaaao- 



ENo; 



0I00C3S3J5 3; 
DOIONQW; GO xit; 



ENO^ 

MSK»=EMPTY/ 

N;=sIF TRANS LS.'> .15 THEN TRAN>t ELSE 15; 



40900000 
40910000 
40920000 



40930000 
40940000 
4 9S0000 - 



39 



I0D'«SPACEl0D&SPACEMASKC21«40J2j; 
FOR W»»l iSTEP 1 UNTIL N 00 

RFGTN noinNOw; 



40960000 
40970000 

fl o v aonnn 



end; 



IF BLCHtSULT.t27;iJ) THEN NisO) 



TOOts?iPACFlODAaPA(:FMASKl rfl > 3/ , ; 2 3; 



FOR N{s3 STEP 

0T««8L(3); 

MSK I « o; 



40990000 
41000000 

-4iuiQono. 



I UNTIL H DO DUlQNOw; 



41020000 
41030000 

4iQ4Qnnn 



42 



45 

»7 
«8 



WRITECQUTFICDBLJ); 

^«RlTE(auTFl*HACKh,TR.ANS + A8S(Ol00.l22!lJ-l)); 

^RnFfOUTFHDBLJ); 



r OD I so 1 00 ; mode i »g ; do i on ow ; 

IF NOT eLCR£SULT.C28n3) THEN GO XIT; 



41050000 
41060000 
4 1 Q <^00QQ 



en d; 



41080000 
4i090000 
411QQ00Q 



M0DEJ»16; 
END ELSE BEGIN XWRITE 
LlMIT;=3"t0Q0Q"f 



PAHITY 



41110000 
41120000 
41130000 



49 



52 



ERASEI0D»»c3PACElQD»»QIO0&0ta:38ltO347t22»«5!3Xi 

C0R£ADOR(T2)£GTG3)&3^112''tl8«41l73; 
WI*RitCF3«QIQD.tCF3»2; 



41140000 
411SOO00 
41160000 



M 
55 



^ 



WHILE 
BEGIN 



TRUE DO 



spacfback; 



IF (NtsN+W+l28) GTR LIMIT 

THEN GQ QIVEUP; 
I[!DtaERASElQ0&Ni:9l39«93; 



41170000 
41160000 
41 190000 



OR STOPPER NEQ 



41200000 
41200100 
418100 00 



J? 



• • 



h 



9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
29 
26 
27 
28 
29 



10 
Si" 
32 
» 



34 
35 



36 

37" 



38 
39 

40 
41 
♦2 



K E Y : s a ; 

FOR Jt=(i STEP 't>i<^ UNTIL N DO 
RFfilN TrtANS{*THANS-l? „_„ 



OOlONOWi 

l00laERASElQD&lC8J/t7Ji3' 
IF RLtRESm T.r?7n 3) THi-N 



BEGIN 



IF NOT HL(R.t<f7sUJ ThLN L IMI f ( s J + 300o; 



ENOi 
ENDi 
K EYtsg ; QTI»B L(3J; 



IOD«=aiOD> 

DOIUNOW; 

IF fll(RESl,llT,[27' U ) THt.N H,U/»rJt=i; 



IF wot SLCHESULT.caaJl]) THEN 
BEGIN 
SIZE;sW£SULT>tCF3*nin0.tCF1J 



spaceback; 

lOD!*i>PACEiUD&0C22:47:iJ; 

r)OlONQw> . „______ 



IF NOT (Bt,(HESULr.C28tll) OR ( BL(OIOD, C 21 » U ) 4 
AND CRESULT.CCF3-SPACeiOD.Ccr3 NEQ SIZE)J)4 

THEN ^ . . . II 



BEGIN 



M0DE5-U&RC42:<^7: IJi 
liQ XIT/ 



end; 



end; 



ENDt 



GIVEUPJ 

MQDEJSI6; 
ENQj . . . 



XITt TAP£PARlTYRETRYi»MOD£&2[CTF3; 4 

end; 4 



PROCEDURE LOOKAhEAU(KEY); VAlUE KEY* INTEGLH KEY; 
BEGIN 



COMMENT CHECKS TO SEE IF ANYTHING CAN BE DONE 

BEFORE GOING TO SLEEP TO WAIT FOR I/O; 
INTEGER NEXTK£Y»NEXTP>NEXTB; 



220000 
230000 
2A00Q0 



250000 
260000 
270000 



2B0000 
2S)0000 
iJJjailQiJ., 



310000 
320000 
33 000 



340000 
350000 
JAQOOO. 



370000 
380000 
390000 



400000 
<»iOOOO 
420QQ0 



430000 
440000 
4^0000- 



460000 
470000 
46 00 - 



490000 
500000 
510000 



520000 
530000 
^lAUO-OO-- 



350000 
560000 
5A01QQ 

560200 
560300 
560305 



560310 
560315 
560400 



43 



45 

46 
47 



18 
49 
50 
51 



52 
53 
54 

55 
56 
f7 



REAL NExTIODi; 
% 

p»sempty; 



IF KEY«1 THEN 

IF Pl»I00l,CFFi NEQ EMPTY THEN 
GETPATTERN(P>1)I 



560450 
560500 
560600 
S60700 
560800 
560900 



IF CODE[A3,i;IFL3sll THEN 
BEGIN 

'IF NEXTKEYi = (NEXTlODl ?sCODECA-t-l] ).[IFL3s2 THEN 



IF NEXTPI»NEXTiaOl,tFF3 NEQ EMPTY THEN 
BEGIN 

IF NEXTBI*NfXTlQ01.CSCF3''3^fy7^ THEN 



561000 
561100 

561200 
561300 
561400 
561500 



NEXTBJsi; 
IF NEXTB Nta B ANO (NtXTB NEQ 1 OR 

PsEMPTY) THEN GETPATTERNC NEXTP* 



561600 
561700 
561800 



NEXTB); 



end; 



£No; 



561900 
562000 
56gl00 



n 

2 
3 
4 
S 
6 
7 
8 
9 
10 

n 

12 
13 

M 
16 

he" 

17 
IS 
19 
20 
21 
22 
23 



end; 



STREAM PROCEPU R E F^Q^^ Hf j^Q, t^»n i VAL U E MfF^ 



*ifk*ir*i,***it*iiit**iHi******iHiiiii**i,* 



4 

i 



562200 
b70000 
5 70 1 QO 



BEGIN 

sii«LOC m; SII« 



isi+i; di:»b; 



570150 
570200 



7(IF SCa" " THEN JUMP OUT ELSE DSlsCHRJ; 

DS»=LIT "/"} SljsLOC Ft Si:=SI+i; 

7nr SC»'^, 'VTHEN J UMP OUT „ E LS E , ,O S ,, > gC h R?; 



570250 
570300 
570350 



0SI«H LIT "(SIMPL) EOa^J 

OSMLIT «*••»; 

Emi 



r .. nil * : < — ^ ^ — ■ 

X*****4r****«*********4**«r** ***************** Ik*********************** 

PROCEDURE TAPEI0(I00,10D1); VALUE IQU*IODi; REAL IQD,IUDi; 
BFfilN . . . , . . 



570400 
570450 
S7O500 



****4 



570600 

saoooo 

590000 



24 
25 
26 
27 

28 
29 

90 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43" 



COMMENT INTERPRETS I/O INSTRUCT IONS* 



LABEL REED#yH*SP,Bl<SP»EHSE*Kk^ND^XlT; 
SWITCH I0Sl3R£ED'«^'SP#EHSE»RWN0*bKSp; 
LIST TANQiCNTlf S.*A-1?J 



590005 
590010 
59O 15 



REAL MASK*ReSULTi 

REAL wei#SPACEL0C,WC2j iKtEP THESE 

STREAM PffnCEOURE L ITER ALWnVE(L TT£R AL » ADPR ?; VALUE 



600000 
610000 



IN ORDER*... 

> nDR?; V , 



literal*addr; 

BEGIN si»*LUc literal* dissauuh; us«=8 chr; enq; 



630000 

631000 
640000 



6b0000 

600000 

670000 



MASKI«0&l00t25l2Sl53; 

UNITI«CNT2l«UNlTABLECl»lQbtC3J5l3).CCFJl 

IODlwTQn&rTtNm«NTg.>FF31f3t4aiqiit 



680000 
690000 
700000 



5C25»4C«a](i 

BUFFERSCb:»(IF NTl i 'lOOl . C SCf ]= 3"/7/" 
ELSE NT 1 ,) HCT C UP I 2i « 40 i H hi 



THEN 1 



71000O 
720000 
7J0OOQ 



IF I0D.CSF3*1G23 TMgN 4 

BEGIN 4 

TF TAI f Y GTR AMD NTl t«( T Al I Y*? )U T V B I; FQ I 020 THFN 4 



740000 
750000 
760000 



I0D.CSF]««NT1 ELSE 
BEGIN 
WRI T ECCFILE^I NVTAL LY^ T AN DM)J 



770000 
780000 
790000 



IF NOT TWXOUT THEN 
WRnE(QuTFI.INVTALLYl'TANOM)/ 
SO EXIT J 



800000 
810000 
9 8 000 



end; 
end; 

lOCaUNTf lOCQUNT-t-i; 



830000 
840000 
8^1 000 



45 

46 
47 
48 

49 
SO 
51 



GO TO IQSIIdOl.tlFL]]; 



reed» 



850000 
860000 
870000 



GETPATTERNC-EMPTY^B) ; 

IF BLCI0D,[22«1]) THEN lOQ . CCF] « = lUD , [CFl- 1 + 
NT2«sIF BLCI00,C23;1 J) THEN lOD.CSFJ ELSt 



880000 

890000 
900000 



8UFFERSCB],tSF3; 
IF IOD.C21»23wO THEN LITERAlMQVEC NOT 
STARTAPEIOCABSC 100)^ RESULT); 



4 
FAL5E»IOD.CCF3+IOD,tSF3);« 

: 4 



910000 
911000 

y g o QOO 



52 

a 

54 
56 
56 



LOOKAHEADCn; 
IQFlNISHCIOD*RESULT*MASK*n; 

GO xit; 



920100 
930000 
940 000 



Wl 



IF BLCMaSK,E27ji3) 
BEGIN .: 



THEN »WRITE TAPEMARK 



950000 
960000 
970000 



• • 



h- 



10 

11 

12 

13 



• 
• 



IS 
16 
17 
18 



19 
20 
21 



24 
25 
26 



27 
28 



30 
31 



• 
• 



33 
34 
35 



36 

37' 



39 



42 
43 



46 
♦7 
t8 
49 
SO 



53 
54 
55 
S« 



MASK,C27»1] !=0; 
JUNK»sO&i"l7 37"Ci: 37:irj> 

inn, [CFi;=cnr^rAi,a:)R( JUNK )r 



END ELSE 
BEGIN 

IF Pt»TODl .trn MrO £MPTV rnirUi RFtPA TTrRMf P.R) t 



4l9d0000 
41990000 

(ftaUOQQOG 



IF NOT 8LClOO,[2i:iJ ) 
LlTERALMtJVECNar 



THEN 
FALSL*CiNT2J=aUFFERS[B]),LCF] + 



42040000 
42020000 
4?Q3QnaQ^ 



end; 

startape 1 < a8 s { 1 qo ) » he sul t ) ; 
nnKAHFAn{2)i 



42040000 
42080000 



I0FINISH(IOC*HESULT*MASK/2); 

GO xit; 



42100000 
42UO0O0 

421 mioo- 



SP? 



BKvSP I 



I0D,CCF3«8!CCREAD0«(SPACEL0C); 



STARTAPEIO(ABS(iau)*rttSULT>; 

lookahead(2); 

Rt^i; , 



42lic0000 
42U0000 

42lb0000 
42160000 
42161000 - 



ERSEi 



I0FlNISH(iaD»RESUUT#MASK#3J; 

GO xit; 



421/0000 
42170100 

4 21702 0O- 



TRANStsTRANS-i; 



42180000 
42190000 
42200000 



KWND) 



startapeiocab.S(iou.),>he.si.ii, r ) 



XTH 



L00KAHEA0C2); 
I0FINlSHCI0D*RESULT»MASK*iaDl.ClFL3); 



42210000 
42220000 
42230000 



BVCNROFBVARxCB-l) ] I si^RDCGUNT; 
BVCNRaFBVARx(B-l) + nJstIUO« = lOD; 
BVCNRQFBVARx(b"i)-f2HaSAVF.K>=RESULT; 



42230100 
42240000 
1140642240100. 



42240200 
42240300 
JkZMOAQA 



42240500 
X140642H50000 



8VCNR0FBVARxCB-l) + 3 3«92xREAL(SI2E;HH} + REAt.(C0MPARE0ATA); 

^r- ^. , 422^0200 

42250300 
4 2250 30 5 



PROCEDURE DETERMINE CHANNEL type; 
BEGIN 



COMMENT DETERMINES If MODet H OR MOqeI- III I/O cONTROLS; 
REAL WESULTr _^ ^^____^ ' 



BOOLEAN 
INTEGER 
FORMAT 



M0D3/ 

AD»i; 



42250310 
42250320 
4?25040Q 



M0D3FAIL("UN|T f AILEO TO DETECT MOO 3 lOS"* 

•^CON REWIND AT BQT)")^ 
M0D3WEIRD€"UNIT DETECTED BOT ON REWInD 4 "* 



42250500 
42250600 
42250610 



"THEREFORE MOD-3 I/O S»»/, 
"MCP DID NOT INDICATE MUD-3 
"HAD BEEN bENSED"); 



42250620 
42250630 
42250640 



I/U s 



X 

aoiucoreaoorcresulT); 

OKBUS INESS { CDRE a0OR( M0D3 1 OS ) &EMPT Y C CTF 3 ) } 



42250650 
42250660 
42250670 



STARTAPEI0C3"4200000000"«iUNITiiCl*UNIT3 U « 28 J 53 * RESULT ); 

WAIT(AD#I0MASK); 

IF N0TC(MQD3«gBL(RESULT,L2tlJ)) EUV MOD3IOS) THEN 



42250700 
42250800 
42250900 



BEGIN 



X140542251000 
42251100 
42251200 



IF MUD3IUS THEN 

WRITE(0UTFU0BLJ>M003FAIL) 



42251300 
42251400 
42251500 



T^ 



ELSE 



h 



2 

3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 



14 

ps 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

90 

31" 

32 

33 

34 

35 

96 

97" 

38 

39 

40 

41 

42 



«3 
(4 
45 
46 
♦7 

«e 

«9 

50 
51 



S2 

53 
54 

55 



JLUSXi- 



WRITECQUTKI tUBL3*MU0JWElHD); 



42251600 
42kbl700 
a2?^ l 8Q0 



MOD3lOSt«»MOD3lOS 0R M003; /»225l900 

END> «2252000 

PROCEDURE DETERI^INtUNlTbTATUS; 42260100 

BEGIN 4J2260200 

^ CQMM FM - nrTfRMtNFS T F A iNRTTE RTNT, Tb rJFmiTMFn AMH a?260^nn 



IF so RE«Uf:STS 
INTEGER AOiii; 
BOOLEAN RIl^ftRQni 



That ir BE made avaiuabue^ 



REAL IOD^RESULT; 

label axl*io; 

format noringc'write ring kqq 



42260400 
42260500 
62260510 



*%A3)> 



ABiRTCTEST ON "^AS*" ABORtEO(NQ WRITE RING)"); 
IF UNlTslMPTY THEN UNIT layNiTABLEC 1# ] . t CF) ; 
N0WRT8'«WRTLneK{8FALS£J 



42260520 
42260600 
42 26070 



IF NOT CONF THEN 

RlNGRG05=BLCHEADERr.7 J ) 
EL SE 



42260750 
42260850 
A?260onn 



BEGIN 

NTlS*It»0; 

WHTLF NT1 NEQ REALCNOT FAiSE) 



42261000 
42261100 
4?261?Qn 



-00- 



IF (NTi: = TESTARRAYCl JjaCFJ 
LEQ NUMBEROFTESrs Th£N 
IF RlNGRUOls t JLf TF STD IHFr TUR Y f NT^ I . r Fp ] ^ 



NEQ AND NT2l«NTlf [27«6] 



Xi4054226l250 

4 2261300 

42261400 



NT1»«REAL(N0T 

ELSE iJal+l 
ELSF IlaT-Hi 



FALSE) 



42261500 
42261600 
4?ig6l6l0 



end; 

IF RINGRQP 
BEGIN 



42261620 

42261630 
4?261ft4Q 



THEN 



lu; 



X140542261650 
42261700 
4 226 1S 00 



STARTAPEI0{3»b0OO0OO0O"&UNlTStl»UMTH3«28l5Jt 
RFSWLT); 



ADl=COREADDRCREbbLT)> 

WAIT(AD» I0MA3K); 

IF WRTLnCK{sFJL(KE3ULT,[26:i 3 ) 



42261900 
42262000 
42262100 



THLN 



BEGIN 



42262200 
42262300 
42262400 



RELEASETHEUNITCUMT); 



AXL> 



WRITECCFILE^NURING^ONL); 
IF AD:3SKIPST0PaH0K(TRUt>TKUE)»4 
GO AXL ELSE 



42262500 

X14O542262600 

42262660 



THEN 



IF NOWRTI »AO«l THEN ELSE 

IF AD#2 THEN 

BFGIN 



42262700 
42262900 
42263000 



42263100 
42263200 
4?263Q1Q 



EN D, 



WRlTE(UUTFltPAGEji»ABaRT'UNL)/ 4226 3920 

GO TQ IF DUNETOG THEN ALLDQNE ELSE RETURNU140542264000 

FlSF — ._ _ ^ ^ ^ ^ 42264010 



BEGIN 42264100 

IF 6ETHEUNIT(UNIT#FALSE3 THEN 42264300 

, GO TO IF OeNETOG THEN ALLQQN£ CLSg ftttURNlit 140 S4a264^«iD 



RESULT I sO> 
GO 10; 



ENDi 



end; 

If GETHeUNITCUnIT, FALSE) TMEn GO 

^_ ALinnNE nsr-RFTURNi 



42264400 
42264450 
42264500 



TO IF OQnETOG THEN 



42264600 

42264650 

X140542264660 



3 
4 

5| 



9 
10 

'H 
12 

13 
14 ( 
16 
16 

iH 

18 

19 

20 { 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 { 

30 

31 

32 < 

33 

34 

35 { 

36 

37 

3e f 

39 

40 

41 4 

42 

43 

44 f 

45 

46 

47 4 

48 

49 

50 t 

51 

52 

53 I 

54 

55 

56< 

5? 



• • 



h 



9 
10 
11 
12 



13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
2« 
27 
28 
29 
M 



31 : 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43" 



45 
46 
47 
•8 
49 
50 
51 
52 
53 
>4 
JS 
J6 



END^ 4226^700 

end; ii22t>U750 

%************^'***it1i**^,****i^^,******1lK^<^,^,^,^l^,^,^,^,^,1,^,*^,i,^,^,i,^,ti,^,i,^,1l^l1,ir^,^,^,i,^,^t^,■l,l^:;}2(ii^f^(}Q 
PROCEDURE INITIALIZEINTERPRETER; 42264900 
BEGIN 42265000 
S TREAM PRQCEDLJRF RWJt^SRC a.M.P 1 > VALuE M.Fi ^ /t3266nsn 



BEGIN 

sirsLOc m; siJsSi+i; Ditas; 

Q5','? LIT " "f 



7(ir SC«" " THEN JUMP OUT EUSE ObJsCHR); 

DSi*LiT "/"•; sii«toc f; sii»si+i; 

7fTF sr.«" "THrw JUMP nuT n y^r nstaruR)t 



DS:sl6 LIT "(SIMPLJ 

end; 

CQMPiHNrit=FALf)E? 



RUNNING*-"/ 



XINITIALIZE BUFFER TABLES 

MOVE(MT U -HEADER C6 3 «CGMPARESUFF, BUFFERS t 03); 

FOR RI«NT1*1 STFP -1 l.iNlTTl nO 

CASE B OF 

BEGIN 

BUFFERS[03.[CF]I 



ULL 



BUFFERSC13,CCF3I*D0UFF; 
8UFFERSC2 3,CCF3l«C0READDR(82)+i; 
8UFFERSC33.CCF3t*CnREADDftCBJ)-HJ 
BUFFERSC4],[CF] jaCCREADDRCB4)+i; 
BUFFERS[5].[cF]lsCQRtADDRCB3)+i; 
flUFFERSr6 3 . C c F 3 ?aC C R ^. ADnRCB6 3-»1 X 
8UFFERSt7 3,tCF3«»CCRE:A06RC8/)"H; 

FNOi ^— - ^ . . ^ ^ 



REAO(CODEFILE); 
XINITIAUIZE PATTERN TABLES 
IF NT1 tsHFAOFRr?] r.TR n THFM 



BEGIN 

FOR NT3»««NT1 STEP -30 UNTIL 1 DO READCCOOEFILE); 

TRANSFERlNCNTl.3Q,CO0EFlLE,PATT£ftNSC*]); 



pp:=empty; 

ENU; 

^tR^AD I N S E G M fNT 



ni CTIONARY 



TRANSFERlNCHEADERCl3#30»COOEFlLE.SEeDlCTC*3 3; 

XREAO IN UNIT TABLE 

IF NTllaHFAnFRn 3 ftTR THFM 



BEGIN 

IF TAPETEST 

-BE GIN 



OR UNIT NEQ EMPTY THEN 



MO VE< 1 * UN I T S 1 8* UN IT 3 * UN I T AiLE C 0» 3 ) ; 

UNIT^BLEE1#0 3I*UNITSC1*UN1T3; 

IF TAPETEST tt-IEK £__ 



42266100 

42266lb0 

.42266160- 



42266200 
42266250 
4?2fi63n0- 



42266350 
42266400 
42267000 



42330000 
42340000 
A33 g>Qnnn 



42360000 
42370000 

4 ? ^ HOOO0 



42390000 
42400000 
4^410000 



42420000 
424:^0000 
42440000. 



42450000 
42560320 
42 700000-. 



42710000 
42740000 
4274500il 



42750000 
42755000 
42y6Qnnn 



427('0000 
42791000 

4?6oonnn 



42810000 
42820000 

4?630nnn 



42840000 
428^)0000 
428 ^000 



BEGIN 

LOGBUFFERtl] := "1 & l[lB:46'23 & M jX [ 20 « 43 I 53 ; 

L0GBUFFERr3]t> 1& UNIT f 3: 43: 5 1 S 1 r 1 4 ; 38 » ^ 1& 7 1146 t 24 I 3 1 1 17 ] i 



42870000 
42680000 
42880100 



LQGBUFFERt 6 3 ! a HEADER €38 3 1 
LOGBUFFERt7 3lB HEAl?ERt29 3; 
LQGRHFFERf81t»PRM 



lOCOUNT* 

end; 

XNi3 



0; 



42880200 
42880300 
4 28 804Q Q 
42880500 
42860600 
42680650 



ELSE 

BEGIN 
REA0(CQDEFILE«NT1M]NITABLE[Q^*J); 



42880700 
42880800 

42890000 



42900000 
42910000 
02920000 



2I 
3 
4 
si 



7 

8 

9 
10 

11 

12 

13 

14 

15 

16 

17 ( 

18 

19 

20 ( 

21 

22 

23 ' 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 4 

33 

34 

35 I 

36 

37 

38 i 

39 

40 

41 < 

42 

43 



47 ' 
48 
49 
50 ( 

51 



52 

53 I 



55 
56 I 
57 



• • 



>r 



_L£. 



REAU(COD£:FlLE'Ml'UNlTABLtCl**J); 

end; 

n ot tapftest thfn 



IF GETHEUNlT(UNlTABLECl*0].tCFl,MAKETAPE) 

THEN 
BFGTN 



42^30000 
429^0000 
4?94Q1QQ 



closeccodefile); 
end; 

IF NOT CONF T H EN 



GO keiukn; 



42940200 
42940300 



BEGIN 

DETERMINEUNITSTATUS; 
DFTERM!NlFr.HANNn TYPf; 



42*40400 
42940450 
4294046 



42970500 
42971000 
4 2972000 



11. 



end; 
end; 

_CIlM:_JitE^. 



42973000 
42980000 
429aQlQ0 



13 
14 

[15 



117 
18 



19 
20 . 



21 
22 
23 
24 
2S 
26 
27 
28 
29 



30 



32 
33 



34 
35 



36 

37" 



41 
«2 
43' 



46 



•8 



49 
50 



52 



55 
56 



BEGIN 

IF HEADEB[20J«0 then 
M0VE (NUMBER0FTESTa*l.HEADFat:FiHSTEST3.TFST0lRFCTQRY) 



42960150 
42930200 
439a0?5Q 



ELSE 

TRANSFER IN (NUMBEROFTESTS + lOOiCOOtF ILL* TEaTDlREC TORY); 
IF TAPETE ST TH EN 



BEGIN DETERMINEUNITSTATUS; 
L0CKCTESTDlRECTaRYC*3); 
LnCKtTESTARRAYf*! W 



det£rminechann£itype; end; 



42980300 
42980350 
!lil4fl5429H0400 



end; 

SAVER :sTRANSi = SJ = AJsTALLY:so; 
TABLEPRESENTt»SlZFRR>aTUGr,LF>rFALSE; 



Xl405429e0/»50 
iK140542980500 
i;l4Q'iA?9BQ550- 



IF HEADERt213«0 THEN HEADERt2U » sMAXUEVELS-l 
DELAYtaHEADER[223; 

LOOProuNT>»STACKtmt»..i; 



X1405429a0900 
429V0000 

Ui3.0000C 



IF BCL AND TRANSLATEBUFFERCO]=0 
FILUMODIFIERS(COMPAREBUFF); 
GETSFGMENTCOa; „_____ 



THEN fillxlatebuFfer; 



43001000 

43002000 

il 4 Q4430l QO QO 



IF 



NOT SOP 
BEGIN 



THEN 



43020000 

43030000 

»140'^4303VOno 



COMMENT SOP IS TRUE IF A CONFIDENCE PROGRAM IS BEING RUN* AND 
IF AN OUTPUT PART UCCURtO IN THt MAlNTENANCt CONTROL 

CAR n ; 



X1405430i2000 
»140543032100 
Hl4Q54lQ3?lin 



*140543032l20 
!I;140543032130 
8;140-34103?^140 



FINDOUTPUTCHEADERt4].[CF3»HEA0ERl4],CSF]); 
IF OCTHgHEADERfS] (STR Q THEN BCLf»HEADERr53 



GTR 1 ; 



ii;i40543032l50 
Xl4a543032200 
114054,^032^00. 



end; 

IF CONF 
FLSF IF 



THEN SPOUTCCS 
NOT HT06 THEN 



-LH 



IF TWXOUT THEN CCCUUNT»*0 
ELSE PRINTCCARDS(CCS#CCCaUNT» FALSE); 
UTOG THEN : _^ . 



X14U543032400 
X140543032500 
ail4Q:i43032600 



BEGIN 

MOVEC1»UNITSCO*UNIT]*UNITA8LECO,0]); 
UNITABLFC V0]U1INITSC1* UN|T] ; 



Xi 40^430 32700 
Xl4OS43032e00 
XiaOS4303300Q 



WRI TE ( OUTFI E DBL 1 # UCHANGEO t UNL ) i 
WRtTECOuTFlCOiLDi 



Xl405a3033l00 
%140543033200 
it 1 40 ^ 4 3 3 3 300 



IF NOT CONF THEN 
BEGIN 

bojmsgcoutbuffer»pmfid*pfid); 



X14O543033400 
I140543033500 
114Q543 Q 3 3 6 O 



If cswitch»o then WRITECTWXCDBL] ); 
WRITECCFlLE*9»0UTBUFFERt*]); 
frATI M E J 



X14O543O34000 
X140543034100 
itl4Q54303420Q 



X140543034300 
X140543034400 
it l40 5430j<t5 QO 



• • 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
14 
2S 
26 
27 
28 
29 
» 
31 
32 
33 



34 

36 

36 

37 ~ 

36 

39 

40 



42 
«3 



4S 



•7 



«9 
50 
51 



52 
53 
M 
55 
56 

i. 



WRITECOUTFI [0BL])/ 

end; 



WRITECaUTFILDBLn; 



ENU; 



PROCEDURE 
BEQIN 



X140543034600 
*140b430j4700 
43040100 



^ ^ 43040100 

RE INPllTALl Yi 43040300 

43050000 



REAL junk; XFOR SEGMENTATION 
IF INSTRUCTION*! THEN 
BEGIN 



IF INSWITCH NEQ 2 THEN 

WRITEClNFlLEflNTAULY); 
ACCUMULATOR fCOREADDRfJUNKBUFFgH); 



43060000 

43070000 

JL3iL?i)XQ5_ 



FIRSTSCANJ«LASTSCAM5InP; 
READClNFILE»lO,INPUTBUFFER[*3)i 
iNPUreUFFERLlOH-REALCNm FAI Sfji 



43070200 

43070300 

Jt30y04Q.O.. 



IF SAFESCAN or CffUNT GEO THEN 
BEGIN 
WRITEfCFlir^TNTALt YFRR«SNA)i 



430/0500 

43070600 

JI 3O70 65Q. 



IF NOT TWXOUT THEN 
WRITE(QuTFICDBL3»1NTALLYERR1#SNA); 

fin noNEJ — ^ , 



43070700 
43070800 
43Q 7Qono 



END ELSE 

tally'-testbuffercoi; 

FND? ^. . 



43071000 
4307U00 
43071200 



END OF inputally; 

PROCEDURE ENDOFLOOPf 



43071300 
43071400 
43071500 



BEGIN 

LABEL 

^ 



XITI 



IF INSTRUCTION LSS THEN 
BEGIN 
WRTTECOUTFTIC B Ll* E HR .S F» E RR n ti i., )j 



43071600 
*************************A»*********i»^*^tyn^***^/4 3640000 

. ^ ^ „ A3^ao.ac. . 

44040000 
440&1000 
: . ^ — 44 05a -&g-& 



END 



WRITE(0UTFICPAGE3*E0TESTF*TESTL); 
ERROR* «0; 
ELSE 



IF INSTRUCTION, [SCF3«0 THEN 

BEGIN S.SUBROUTINE EXiT 
S8»(NTH:=STACKCSREGt-SRFG-13).[18»6]; 

Ai«NTl«CSF]; 

UOOPC0UNTl*NTl&OC2l J9J293; 

fin xtt; _^^___. 



44060000 
44070000 
IQXIQ.,, 
44OVO0O0 
44100000 

44ixQonn 



44111000 

44112000 

'<140<t44113Q0Q 



end; 
if loopcount lss then loopcounljs 

if instructi0n lss q then test apr ay [test inx ]. [cf ] 



44114000 
44115000 
4aii6non 



INSTRUCTION. CSCF 3 1 

IF LOOPCOUNTl»LQOPcaUNT»l GTR THEN 
A»»INSTRUP.TinN.rFF3 ' 






44U7000 

44120000 
44130000 



ELSE 

BEGIN 



44140000 
441^0000 
44170 000 



LOOPCOUNT >= STACKrSREG8sSREG-13&Q[CTF3J 



IF INSTRUCTION LSS THEN 

BEGIN 

L0fiBUFFERtl3l» LQGaUFFERtl3& Qrai2; 13& 3E9»45t 31J 
1 nrsniirrrDr'Jiio nr r m r r i mc f n \ \ • 



44160000 
44190000 
^ 1 140444190 100 



LOGBUFFERCi23«» OC T AL( TIMECO ) ) ; 
L0GBUFFERC43ia IOCQUNT; 
LOGBUFFER[b]i» ERRORS; 



44190200 
44190300 
441904QQ 



mpf 



end; 



LlNKltUPj 



44190500 
44190600 
44190700 



44190600 
44190900 
442QO0O0 



T1^ 



18 
19 



23 



26 ' 
27 
28 
29 I 
30 



34 
35 I 
36 
37 



44 ' 
45 



47 

46 



m 



55 
56 I 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



XiTt END OF ENDOFLOUP; 



BQOlFAN PROCEDURE GOTCTEST/ 



44^10000 
******iir****************************************44220000 



BEGIN 
LABEL 

j; 



4ti6l00Cm-, 



AGAlN*XlTi 



44620000 

44631000 

■ 446320nn 



AGAINI 

FOR TESTINXJsTESTlNX+1 STEP 1 UNllL 63 DO 
IF CNT?> = TFSTARRAYCTESTINX3 )-HEAL(Nnr FALSE) 



MiliL 



44633000 
44640000 
44640100 



TESTINXI»64 
ELSE 
IF NT2,crF] NFQ Q AND (NTl UTESTO IREC TORY f TEST ? * NT2 « C ?7 »6 3 3 ) 



44640200 
44640300 
44660000 



13 

14 
''.5 
^6 

18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



NEQ THEN 
BEGIN 
JF BLCM iaFFJ) 



AWQ NQWIiIT THEN 



44651000 

44660000 

■ 44661000 



BEGIN 



WRlTE(OUTFl,OftSH)l 

W RITEC OUTFIT NQTDQNE^TESTD; 



44662000 
44663000 



iNRlTECOUTFItPAGEJ*DASh); 

GO again; 



ENOJ 



LOGBUFFERCns* LOGBUFFERfU & 0C2«2U3 i 

H9»45»3] 4 TESTC12J42J6JJ 
LQGRl. lFF ERr?H« Qc T AL CT I M E Cfl ) ) f 



44665000 

44666000 

-446670Qa, 



44667100 
44667200 
44667300- 



LOGBUFFERC43J= 
L0GBUFFERC5Jt= 

-LOGflUFFEREVU''. 



iocqunt; 
errors; 
£MFin; 



44667400 
44667500 
44667600- 



LOGBuFFERtlOJls PFlOJ 

LINKiTyPj 

IF N T2 LSS Q TH EN 



44667700 

4466?e00 

ail 4 Q3 4 466a000 



BEGIN 



abrevjsfalse; 

TGNnRERRQHS}" 



!I!140344608100 

iKl4O344668200 

NdT tNQ,[SEQNERtinH; = ROQLEANCNT?.[„r'n 3 3 J? *HQ 34466fl300 



31 

32 

33 

34 

35 

36 

37" 

38 

39 



END ELSE 
BEGIN 
TGN0RERR0HS8 8N0lSEnNFRH0R l'TF ALSE? 



ABREVIsBDQLEAN(NT2.t2«133; 

end; 

DEL AY»gNT 2i[1 8»9]; 



X140344668400 
X14034466a600 
XiaQ344fi6H700 



a:»NT1,CCF3; 

60 xit; 
end; 



X140344668800 

*140344668900 

44669Q1Q 



44670000 
44671000 
44680000 



«o 

41 
42 



gototestj-true; 

XlTl END OF GOTOTEST; 



44690000 
446^0100 

*ilr***»*ilr***********it**ilriHlr*«»4469020Q 



45 
46 
47 
•8 
49 
50 
51 



PROCEDURE TYPE13INSTRUCTI0N; 
BEGIN 
COMMENT INTERPRETS TYPE 13 INSTRUCTIONS; 



44700000 
44700 100 
44rO QgQQ 



BOOLEAN JUNKB»BUFFB; 

% 

DEFINE SORO«BL(BV[NROFBVARx(NT2"1)-»-3 3 )»* 



!i;l406 
X1406 



44700300 

44700400 
44700500 



52 

53 
54 

55 



56 
S7 



result«nt3#; 

IF NTII<INSTRUGTiaN.tSCF3 GTR 4 THEN 



RESULT«*IF BUFFB«»(NT2«''lNSTRUCTlUN.t24;93 ) GTR 

THEN BVCNR0FBVARx(NT2-l)+23 ELSE SAVEH; 
_! 



XI 406 
X1406 
»tA 06 



44700600 
44700700 
44700flC0 



CASE NTl OF 
BEGIN 

AH 



X1406 
*1406 
lil406 



44700900 
44701000 
M-7 1 1 n 0- 



!);1406447i0000 

44711000 

_- 44712000 



# 



a 

9 
10 

11 

12 
13 
14 
IS 
16 
17 
18 



19 

20 



23 
24 



2S 



27 



\ » 

30 

31 " 
I 32 

33 

34 
I 35 

36 

37"" 
1 38 

39 

40 

41 

42 

45 



«6 
•7 
«8 
49 
50 
51 



\ 53 
54 
55 

t 



%\ 



%2 
JL3. 



TALLYJ»cnDEC(AI = A + n-l3 + ClF IivbTRUCT ION LSS THEN TALLY ELSE 0); 
TQGGLFI»RI C TNSTRliCT y Hm , f Kp 1 ) ; 



^ai^UOOO 
44714000 
4a7|'>00C 



JUNKBI»IF 8L(INSTRUGTlON,trF3) THEN NOT TOGStE ELSE TOGGLE; 



BEGIN 

nt2jscodeca];aj»a+i; 

IF NTU'TNSTRUCTTQN.CFFJrQ THf-'^ 



44716000 
44717000 
447lfl000 



JUNKii«TALLYaNT2 ELSE 
IF NT1«1 THEN JUNKBJsTALLY LSS NT2 ELSE 
IF NTigS> TUrM JUMKRi.rALi V a ra nt? f i -^p 



44719000 

44720000 

JUtJglOOO. 



IF NT133 TklEN' JUNKB» = TALLY 
IF NT1=4 THEN JUNKBJalALLY 
.JUNKBJtTAI I, Y NFffi NT?J 



LEQ 

GEQ 



NT^ 
NT2 



ELSt. 
EL St. 



44722000 
44723000 
447^4000 



X4 



%5 



JtA. 



end; 

inNKRi.Mnp^jrKtf 



44725000 

44726000 

-iU-g-2-7000- 



44728000 
44729000 
447300Q0 



JUNKB:*BL(RESULT,t28«l])/' 



%7 



JUNK8|«Bi{RESULT,£2ill) AND BLCR|:suLt,n3M3); 



44731000 
X140644732000 
-44733000 



-M- 



(BL(RESULT,[2S1J) AND BL (RESULT . C 14 : 1 3 ) ) 
ELSE BLCRESULT,[27;n)> 



X140644734000 
447 35000 

X140644737000 
%140644738000 



%9 



JUNKB:»BL(RESUlt.E27«1}M 
JUNKB»»TF Mnn?>Tns Tum 



%] 



CBL(RESULT.C2»13) AND 
ELSE BLCREi'ULT, £29513); 



BLCHESULT.tllJin) 



*140644740000 

44741000 

iilflQ(Sfl^74gnnn 



Xil 



X12 



JUNKB«*»IF BUFFB THEN S0RD.C46I13 ELSE SlZgRR; 
JUNKBi»IF 6UFFB THEN SORD ELSE COMPAR£DATAi 



«140644743000 
%140644744000 
447450.00 



X140644746000 

44747000 
X140644748QOQ 



JUNK8»»bL(ReSULT,L2:13) 

fnd; 



AND BKRESULT. £12:13); 



44749000 
«140644750000 

4475inQi3 



^^ I'^^^NKB THEN Al«Ani ^ — 44821390 

n»%yxxx %a;BEGri<NiNG OF interpreter block CQDEx»!t»aiiu»xx»x^xit»xxu!t%»»»%4483QnQ Q 

INITIALIZEINTERPRETER; ' ~—' 4483Q100 

S0<GO TO SW[(iNSTRUCTlONt=lNSTR).[IFL]3; n40444830300 



si» 



INPUTALLYI 



S2« 



nextinstruction; 

DISPLAYIT(INSTRUCTTQN); 



44830400 
44830500 
44830600 



S3» 



NE)<T INSTRUCT I On; 
ENDOFIOOPI 



44830700 
44830800 
4483090Q 



S4« 



nextinstruction; 



44831000 
44831100 
44831200 



GETPATTERN(INSTRUCTI0N.CFF3MNSTHUCTI0N,LSCFJ); 



S5» 



nextinstruction; 

if buffebs[n,cff3 lss empty then 



44831300 
44831400 
44831500 



44831600 
44831700 
44831600 



12 

13 

14 

15 

16 

17 ' 

18 

19 

20 ' 

21 

22 

23 * 

24 

2S 

26 I 

27 

28 

29 ( 

30 

31 

32 { 

33 

34 

35 4 

36 

37 

38 4 

39 

40 

41 I 

42 

43 

44 % 

45 

46 

"I 

48 

49 

SO fj 

51 

52 

S3 % 

54 

55 

57 



h 



GETPATTERN(EMPTYM); 
GETPATTERN(EMPTY#BislNST«UCTjON.li>CF] ); 
IF I NSTRUCT I ON G TR TH £ N 



R0TATE({NT1J«BUFFERSIB3).CCF3*PATBUFFC0]* 

SKCNTl.tSFD-NTaJslNSTRUCTIONttFFJ^NTa) 
ELSF 



44831900 
44832000 



44832200 
44832300 
44832600 



4 
6 
6 
7 
8 
9 
10 
11 



RaTATE((NTU«BuFFERSLBJ).CCFj*PArBuFFCO], 
NT2»=INSTRUCTICN.[FF3*8x(NTl.L6F])-Nr2); 

n f xt i nstku c ti d n ; 



44832500 
44832600 
44632700 



13 

14 

(15 

lie" 

18 



S6J 



getpattern(Empty#b»«inst«uctiqn.cscf3); 

RllFFFRSHIFTf^Tt I ■ T KLSTRlir.T InN . C FF 1 # MT?I a f MT ^ t »BliFFFR «;r H 1 V 



ILEX 



S7« 



NT2*8x(NT3.tSF] J-NTIMNSTRUCTIUN lSS 0^0)> 
NEXTINSTRUCTlONi 



44832800 
44632900 
44 83 3 000 



44833100 
44833200 
44833300 



IF JUNK8t»{Pl»INSTRUCTlUN.tFF3 GEO MAXBUFFS) THEN 44833400 

BEGIN GETPATTERNCP!«»P*MAXBUrFS*l); NTi»sDBUFF; NT3»*P ATTERNStPJ* 44833500 

Vih . : .: . . . . 4483.1600. 



ELSE 

NTl»*CNT3:=BUFFERiJ[P]).CCFi; 
IF COMPARFDATAiafllGCOMPARECMINCNT ^.CiiF]* 



44833700 
44833800 
Xl50l 44e3 3900 



19 
20 
21 



CNT2J»BUFFERSCB»a 
lNSTRUCTION»tSCF3 3).CSF3)* 
NTUNT2,CCF1) THEN . 



X150144833950 
X150144834000 
ll5ni4 4R34050 



22 



24 
25 



27 
28 
29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



.^S± 



comparerrorc instruct i qn#p)/ 
nextinsthuction; 



SREG»«L00PC0UNTI*0; 
NEXTINSTRUCTlONi 

S 1 Q« 



%150144834100 

44834200 

a^H3430 



X140444a34400 

44634S00 

44834600 



IF INSTRUCTION LSS THEN 
BEGIN 
L00PCUUNTlgSTACK[SREG8=SREG-IlNSTRLCTIQN,CSCF] ] 



44834700 

44834800 

a;l40444834900 



&0CCTF3; 

nextinstruction; 
end; 



LOOPcOUNTJsO; INSTRUCT IQN J = COOE [ A« sSTACK ISREG" IJ ,C24 I 9]]; 
AtsA+i; GO S3i 
Sill 



44835000 
44835100 
44835200 



TAPEIOClNSTRUCTION^IUDltaCODECCAtsA-H)-!]); 
NEXTINSTRUCTIONi 

Sl2t •- •• ■■•.■ ... ■■• . ' - . 



%140a44835300 
44835400 
44835500 



!i;140444835600 

44835700 
44835800 



IF GOTOTEST THEN GO DONE EL^^E NEX U NSThiUCT IQiXi 
S13J 

TYP El3I NSTR U CT inN; 



44835900 
44836000 
448 3610Q 



46 

4« 

47 

•8 

49 

50 

51 : 

52 

53 

54 

55 

56 

57 



NEXTINSTRUCTlONr 
S14I 

WHENNC INSTRUCT IQN . t SCF 1 ) J 



44836200 
44836300 
446 36400 



nextinstruction; 

Sl5l 

NEWDISPLAY( INSTRUCTION); 



44836500 
S140644836600 
aH40644836700 



NEXT INSTRUCT lONi 
OONEI , 

If NOTCTWXOUJr QiCONf} THEN WRITE (OUTFlCPAte 3 ? CLSC 



» 1406448 36800 
44840000 
44841 OOP 



BEGIN WRITE(0UTFUOBL3); WRITE C OUTF I C DBLl ) ^ EnO; 
ECJMSG(OuTBUFFE«*PMFID#PFID); 
IF JUNKB»~CSWITf:H«0 THFN WRlTECTwX)j 



IF NOT CONF THEN 
WRITECCFILE»9»0UTBUFFERt*3)J 
IF JUNK8 THEN WRITE(TW XLBBL 3 ?^ 



4484UO0 
44842000 
44842500 



44842600 
44843000 
44844000 



56 ' 
5^ 



h- 



2 
3 

4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 



IF 
GO 



conf then 
return; 

flMIT 



UNLOCK(TESTARR/*Yt*] )/ 



end; 
zxxxxxxxxxeno 

END; 



44845000 

S;1404448b0000 
tiaB'aOlOO 



44060000 
OF TNTERPRETEK B\.QCK%%%%%%%%%%%%%%%%%%%%%%%i%%%%%%%%%%%%%%mib6i0O0 

448^0000- 



X%%X%!l%%XXENO OF SCAN BL0C^%%%%%%%%%:i%%%%%Jti%%%%%%%%%%%%%%%%%%%%%%%%%%%%m^Q7 iQOO 

RUNDISKTESTSj 44880000 

X»»»»»#»#»»DISK TfST block STARTS Hf.H^»it»»»n«»»1t.tt»»]itt«iHti»M)tit»imitit^»»«itliLQ'iOnnt^ 



BEGIN 
$8ET QMIT«0MITDISKTESTS 
LABEL ■ 



44900000 

44900100 

JUillQUm.. 



RUNTESTS; 44920000 

X********ilr****ilririk***********4r**i^**«i)t******«r*'**ik*******************1k***«*44930000 

INT E G E R _^_____ 4^940000 



SfA*' 

iriRST ADDRESS THIS PASS 

BUFFLTH. 



44960000 
44961000 
44970000 



16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

36 

36 

37 ~ 

38 

39 

«0 

41 

42 

*3~ 



«S 
46 
47 
«8 
«9 
50 



51 
52 
53 

54 
55 
56 



%l/0 SIZE FOR CURRENT TEST 

vlUMPOFF* 

XJUMPOFF IS USED TO STORE THE ENUlNG AOOftESS UURTNG 



X MAINTENANCE SEGMENT TESTING. BECAUSE THE! 
% MAINTENANCE SEGMENTS ON 40MS DISK CORRESPOND 

-J TO TWO LORTCAt TRACKS 4QQQQ STGMENTS APART 



449/1000 
44980000 
4498 1000, 



% ADDRESSING THOSE SEGMENTS IS 

X BY ADDRESSING 40000 SeqS ANQ 

j; 4oneo lu avotd puPLiCAriQN. 



% 
% 

■JUMPCOUNTi 



accumplished 
then skipping 

JUMPOFF CONTAINS 



44981005 

44961010 
4498101'^ 



THE UAST ADDRESS TO BE TESTED BEFORE SKIPPING 



44981020 
44981025 
44981030- 



X 
X 

X 



44981035 
44981040 
4 4990000 



WHEN THE MAINTENANCE SEG ADDRESS 
JAE JUMPCOUNT] IS EXAMINED, IF IT 



REACHES JUMPOFF, 
IS GEO Of ADDRESS 



44990005 
44990010 
44990015 



X Is CONTINUED AT THAT ADDRESS. JUWPOFF IS SET TO 44990020 
X JA£JUmPC0UNT+13 AND JUMPCOUnT IS INCREMENTED BY 2, 44990025 
X IS JACaUMPC0UNT3 IS USS 0» ADDRESSING IS TERMINATED 44990o3q 



X 

WRTOG* 

X 



X 
X 

sc# 



INDEX OF ACTIVE WRITE BUFFER 



44990035 
45010000 



X 

X 
JL 



45010010 
45010015 
X150145011000 



CONTROLS INTERROGATION OF TlMfC-ii) 



*SET OMITwOMiT or 
N0WAIT# 

X ■ 



NOT TUNEUP 



X150145011100 
X150145011200 

X 15O1 45Q U30Q 



X 
X 
lOTi 



COUNTS NR OF TIMES Wt DIDN-f HAVE TO WAIT FOR I/O 



X ISO 1 45011 350 
X150l450n400 
X15Ql45Q1150d 



X 
X 

JL 



FIN. 45011600 
X150145011700 
Xl5U145QHfl00- 



I/O TIME AT START OF CURRENT TEST 



ETM, 
X 

% 



X1501AS011900 
XI 50 1450 12000 
XlSQl 4 501 1100 



ELAPSED TIME AT START OF CURRENT TEST 



SPiJP OMIT 



X150145012200 
X150145012300 
a tl501 45 Ql240Q 



ROT0G# 



X150I45012401 
X1S014S020000 



12 
13 

U 

hi 



18 

19 
20 
21 



22 
23 
24 
25 
26 
27 



28 
29 

30 

31 " 

32 

33 

34 

35 

36 



39 



«2 
43 



45 
46 
47 
48 



49 

50 



62 
53 



55 
S6 



% 
% 

DEL TA f 



INDEX OF' ACTIVL READ BUFFEIK 



% 
% 

JL 



45020010 
45020015 
^lbU14')020lflfL 



ADDRESSING INCREMENT 



OUOBUFFLTH* 
% 
-2 PRFVIQUS 



X150U5020200 
«150145020300 



VAtiiE flF BUFFI.TH, 



ZONE* 

_l 



XlbOl45020500 
%150145020510 

it;nmft5Q2n520- 



X 
OFFS E T* 



REL SEG IN ZONE wHEHE ADDRESS RANGE STARTS 



X150145020530 
XIS0145020600 

!H50i4'>o?07nn 



X 

XREL 

X 



Xlb0l45020600 
X15U145020900 



SEG IN ZONE WHERE ADDRESS . RANGE STARTS 



zoneoffset; 

X 

X REL SEG IN 



ZONE (NORMAL ^£65-30 InDRO I/n-S) 



X150145021100 
X150145021200 
X150l4 50 2nO0 
Xlb0i450214G0 
Xl5Ol45O21b00 
a tlbOi 45021 60 Q 



X *************************************** ft ****************************** */J 5 3 Q Q Q Q 

boolean 45040000 

Wfili.__ . 45050000 



X 
X 

JL 



WRT IS TRUE DURING A WRITE TEST 



shif* 

X 
X 



45050005 
45050010 
45050015 



TRUE nURiNG SHIFTING PATTERN TEST 



45060000 
45060004 
4S060Q05 



FQRTYMILL* 

X 



X 
X 
M AINT* 



40 MS, DISK 



45060010 
45070000 
45Q/^QQ0'=>.. 



45070010 
45070015 



X 

X 

JL 



MAINTENANCE SEG TEST 



REV, 
X 
_X 



45060005 

45080010 

■45QHn0l5. 



RFVERSF ADnRrSSTNG 



X 

LONG* 
X 



450*0000 
45090005 
45090010 



X 
X 



TEST s 2 DR TEST « 12 



45090015 
45100000 
45100Q0S 



X 
X 

X 



X150145100010 
45100015 

xiSQiflsioomo 



TEST 



12 



SWITCHER* 
X 

X US ED 



X150145100200 
X150145100300 
X15Q14'^10Q40Q 



X 
X 

KWIK, 



PASS 



OURIMG TFST MR 2 Tn iNnlCATE READ flR WRITE 



45U0OO0 
45U0005 
45U0Q1Q 



X 
X 

■JL 



45110015 
45110020 
X150145U0100 



TEST 13 OR 14 



XI 50 145 I 10200 
X 1 50 1 45 UO 300 
1 4 S0 14511 Q4 00 



• • 



12 
13 



IS 
17 
18 



20 



24 
2S 
26 



28 
29 
30 
31 
32 
33 



34 
35 



36 

37' 



41 
42 
43 



18 



49 
50 



61 
52 



55 



X 

j; 



RFAD PART OF l^ij ONLY ,. 



H50H5110500 
»lb0l451l0600 



NODATA* 



% 
% 



NO DATA DiSPLAYtD ON ERROR 



xisoHSUoeoo 

*150145U0900 



ADDRESSif^qCO^^PLETE;; 



X 

JL 



X15O145UU00 
X150H5U1200 



Indicates no more aooresses to test 



45120005 
45120010 
4 512 Q Q15 



SAVE array 451?0000 

^ TonfREScnnir ^ ^ — „ ftsiaoooo 



X 

X 

JL 



IO0CB] CONTAINS THE I/Q DESC FOR BUFFER B 
REStRI CnwTAlMS THE BFSULT HFSC FflW auFFffi B 



4S18000S 
45180010 
45lflQ015 



LOCATlONCe83]^ 

_I 



X 

X 

A. 



UOCATIONCB]" 
rQ«21»9 



X 

X 

JL 



C2J1]=1 
C3»9]=0 
[l2»ft3=UIN 



X 

X 

JL 



QF mSK CONTRni, iJElNG liSFH 



IFF ]»0 

tCF 3«C0R£A0DR£SS 



OF REStB] 



szcoun* 

X 
J SZ CONTAINS 



INFOSMATION ABOUT THE ZONES 



X 

X 
X 



S2t03i 
SZM^ 



iNUMiE? 
'NUMBER 



OF 
Q£. 



SESS 
S£P 



IN 



ZONE 
ZONE 



% 
X 

X 



X 
X 

JL 



SZt2]sNUMBEK OF SEGS In ZONE 
SZt3]=FIRST SEG IN ZONE 1 
SZ[4]»FIRST SEG IN Z ONiT ? 



SZt53»FlRST SEC IN I0N£ 3 
S2C63«LAST SEG IN ZONE I 
S2[71»t AST SFG IN 7QNF P 



X 
X 
X 



X 
X 

D LT AC Q «2 3y 



SZt83=LAST SEG IN ZONE 3 
SZt93=0 

SEG NR IN H2 Pattern (zone 2) 



SEG NR IN M2 PATTERN (ZONE 3) 



X 
X 

SHIFTBUFFCOI123* 



OPTIMUM INTERLACES FOR ZONES 1-3 



X 

X 
X 



CONTAINS TEST PATTERN 



DISK[0S3*0J123* 

X 

X I/O BUFFERS 



COMPAREBUFFCQIlfOll23/ 



45180020 
45190000 
45 1 V0 QQ5. 



45190010 

45190015 
4S190n9n 



45190025 
45190030 
451900 3 5- 



45190040 
45190045 
45190050 



Xlb0l45200000 

45200005 

45200010 



45200015 
45200020 
45200025 



45200030 
45200035 
45200040 



45200045 
X150145200050 
115Q1452QQ^nn 



X150145200200 
X150145200210 
X150 1 4520022 



X 150 1453002 30 
X 150145200300 
X150145200400 



X150145200500 
%150l45200600 
X15014521000Q 



45210005 
45210010 
^5210015 



X150145220000 

45220005 
45220010 



45220015 

X150145230000 

. * 5a30p09 



"IT^* 



n^ 



>r 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

(lb 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 



39 



40 
41 
42 



43 



45 
46 



•8 



«9 
50 



52 

53 



55 

56 



% 

% 
% 



COMPAREbUFFtB**] CUhTAINb THE PATTERN THAT 
IS EXPECTED NEXT ON D I SK [ B + ;i* * J 



DA[0tl*0»3]# 
% 

% DA[I»03 CONTAINS THE ADDRESS BEING WRITTEN 



45ii30010 
45iiJ00l5 



% 

% 
% 



% 
% 



ON BUFFER 1 
DACIM] CONTAINS THt PREVIOl'S VALUE OF 

^ DACI^QJ . 

DA[I#23 CONTAINS THE ADDRESS BEING READ ON 

BUFFER 1*2 
DACU33 CONTAINS THE PREVIOUS VALUE OF 



45240000 
4£>240005 
a'S2aQniQ 

45240015 
45240020 
45240QP5 



DACI»23 



45240030 
45240035 
4524Qnfln 



JACQii^otg]; 



% 
% 
% 



45240045 

45240050 

-itl5Ql4525000Q 



SEE COMMENTS ABOVE 



ARRAY 

F»nuNT»0LRCCS2]J 



45250005 
45250010 
fl525Q0..tS- 



• *****«*********************jHtj260000 

45270000 
4 52S?0000 



$SET 0MIT«0MIT OR NOT DEBUG 452V0i60 

A RRAY ME S S A GEtO « 1 4 3; 45290300 

INTEGER MESSP; 45290^00 

SPOP OMIT 452905CC 

Ji*jL*jkJci.i ****i»*^r*iir* *itf********iic*** * * ***** * * * ********* nA******^*****t****fy r /I 5 30 000 

INTEGER PROCEDURE /NEtFA); VALuE Fa; INTEGER Fa; 45310000 

45310005 
— flBilOOlG — 



COMMENT RFTURNIS f ZHMF OF FAr - ] ; 



2NE» = IF FAJrCFA MOD 100) LSS SZ[/4j THEN ELSE 
IF FA L$S Ul ^ l TH EN 1 FL SE 



45310015 
45320000 



If FA L:?a SZ[>J THEN I FL^E V i a's33Qcnn 



Ir********************** ***************** *«*«** ************** 

REAL PROCEDURE M aDDR(F ILEAODR>KLUGE ) ; VALUE F11EADDR*KLUGE; 
INTEGER FILEAPDR; BOOLEAN KLUGE; 



BEGIN 
COMM ENT 



45350000 
45360000 



45370000 
45370005 
45370010 



RETURNS THE MAINTENANCE SEGMENT CORRESPONDING 
TO THE NORMAL SEGMENT FIlEADDR. MAInT SfS AODR 



IS RETURNED IN ALPHA FORMAT* IF FILEADDR LSS 0* 
ADDRESS KETURNEO IS A NORMAL SEGMENT (EITHER 
FIRST PR LAST TN ZONE* DEPENHInG UN \/ALUr OF REV^t 



45370015 
45370020 
45370025 



IF KLUDGE IS TRUEi THE ADDRESS RETURNED IS cORHECT 
FOR INSERTION INTO AN M2 SEGMENT DATA PATTERNS 



45370030 
45370035 
4 537 0Q4G 



REAL JUNKi; INTEGER JUNK2; 

IF BQOLEANCFlLEAOUR.tlSl]) THEN 

MADPR>»1O0x((FILEADDh«xA6S(MLEAQDR3] DIV 



45370045 
45370050 

,45370055 



ELSE 
BEGIN 



SZCZNECFILEA008)*33 



1003-t- 



45380000 
45390000 
45400000 



H50145410C00 
45430000 
45440Q00 



IF FORTYMILL THEN 45441000 

FILEADDR:»FILEADDR-4 000 0x 45441100 

((((FILEADUH DIV IQOQO) MQn 100)*4) OIV 6)J 45441200 



IF KLUGE THEN 
FiLEADDRtsFILEAOOR MOD lOOOOOO; 

junkh»decmalcfileaddr)j 



45450000 
45460000 

4S #7000 



54 
55 
56 ' 

5? 



• • 



2 
3 

4 
5 
6 
7 

le 

9 
10 
11 
12 



13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



31 
32 
33 

34 
35 
36 

3?" 
38 



40 

41 

42 

43" 

44 

45 

46 

47 

48 



49 
SO 



51 
52 



53 



S5 
56 



IF KLUGf: THtN 

JUNKl tsJUNKUDECMALCtNTlERCOCTAtC JUNK1,[12;12]) 

li I 1 ri /] A \ r t 'J . J i . « O 1 • 



MHO g ).)[ lr!{i6M?1f 



JUNK2ts.JUNKl.£12»6] + 10-5xREAI.ChRT); 

JUNKl»sjUNKl&JUNt<2Cl2»^2!61i 

.JIINKI .f 16M?H»SZr7NEfF]l FAnDR-14.9 11 



^5b40000 
455b0000 



end; 



WADURjsJUNKi; 



45570000 
45580000 
M 50 14^5900-0^3- 



e nd; 



45620000 
456JOOOO 
4 56 *4 0000 



." — ^ ^ — ' « 50 '4 UO Q Q 

X***************** ******* ****************»**#**#************#*****<>^*#**45650000 

DEFINE MAlNTA00R(A)«MAO0R(A*FAl.JsE)»; ' 

DEFINE inFUTA^a*; 



!S150145660000 
X150U5670000 



KIBUIOSO/^UOOQ. 

%******************************************* *******^,******J^*****^^^>^^^t*^45^jjQQQQ 

M'JD ATTCT>,\./";.nrST. »nnr,rcc > . WA.lif .or,„c-cc. 45690000 



**«»«**«**********w*******************«***«***A******A**** 

STREAM Procedure M2PATTERNC5*DEi»T*ADDRESS); VALUE ADDRESS; 



BEGIN 



LOCAU savesi; 

oii-oest; si!«s; 

pStatie CHR? 



45 70Q00Q— - 



SI;»Sl+6i SAVESl:=Si; 

si:aLCc address; 
sn=si-»2; DSi=6 chr; 



45710000 

45/20000 
4573OQOO 



end; 



SIt«SAVESi; 

oSi«9 wos; 



45740000 
45750000 
45760000- 



45770000 
45780000 
4 57 90 000 



■ — ft Sf vu ooo 

X************* ********************************** ***************<,*^n,^****45m}QQQQ 

PROCEDURE FlN0GCCDM2pATTEHNCADUrt); VAllE AOOR/ INTEGER ADDR/ 45810000 
«'"''• T w 45fl20000- 



REGIN 

INTEGER I#SU'EU*EA; 

REAL ioo*result»locatiqn; 

L A BE L XlT ; _ 



45830000 
45840000 
4 5 85 0000 



FILL OUTBUFFERC*] WJTh 
" 200 03"^ 



"99990 "* 
" 00000 O"* 



4586OOOO 
45870000 
4588 0000 



"C 
"0 

JLO. 



1,2[3CV 
1.2C3C"' 



45890000 
45900000 
45910000 



"0 1.2C3C*'* 
"EEXxCCtP"' 
"EExxCCPe* ** 



45920000 
45930000 
4594QQQQ 



"EExxCCPP"* 
"EE><xcC§>P"; 

IOD»-C0READDRCJUi\WdUFFERLQ3 )&12i:8»38:i0]<t 



45950000 
45960000 
^5970000 



5l3tl8l33ll53&U24S47UHTINUC3»43i53; 
LOCATIONl»(Ii«COREAOOH(RESULT})&UNlTtl2»42l6U 
It2«47il3; 



45980000 
45990000 
46000000 

46010000 
46020000 
46030000 



EU:«ADDR DIV lOOOOOO; 

SU:»((ADUR DIV 10000) MOD 100 ) DIV 4; Jii 

EAt«{ADDK>glQOOOOOxEU-*-40000xSU4.SZLZNECADDR)*3] )'»40000; 460 6000 



46040000 

X150146050000 



WHILE TRUE DO 
BEGIN 

JUNKBurFERC 3r»0£c I MAL C ADOt ) ; 



M2PATTERN(0UTBUFFeR*0UT8UFFER»MADDRCADDR*TRUE)); 

IDREQUEST(-(RESULTlaI0D)&0t25«40>8]*RESULT* 
1 nr AT I nw ^ : 



LOCATION); 



WAlT(I#iaMAS«}; 

IF RESULT, t25iei»0 THEN 

.ei.G.lN ,.";•■:.■■ .■•„..: .,.■■.../..;.:■..■.' 



46070000 
46080000 
46090000 
46100000 
46110000 
46120000 
46130000 
46140000 
X150l46i41000 



11^ 



IF 



h 



1 

2 
3 
4 
5 
6 
■/ 
8 
9 
10 
11 
12 
13 
14 

ns 

16 
17 



19 
20 
21 
22 
23 
24 
25 
2S 
27 
28 
29 
30 
31 
32 
33 



34 
35 
36 
37" 



38 
39 



41 
42 

Its" 



45 
46 
47 
18 
49 
50 



S2 
53 

54 
SS 
56 

53. 



NOT blGCUMPARtCl2»C0READDH(0uTBUFFEH)* 
COHEADD«( JONKBUFFERCn ) ) THE.N 
RL'fiiN 



FK n; 



M0VEC12'JUImKbUFFERC1]*SHIFTBUFF); 

GQ xit; 



*150H6lbOOOO 
*lb0l46l60000 



IF CHRERR < 3 A^U FSTEHK < it THEN 
BEGIN 
MnVEC12*JiiNKBUFFER[l 1 ,. .Sh IFTRUFF } J 



!tlb0l46l60200 
X150146160300 



X150146W0000 

46180000 
46190000 



w u V t. V A <: f J tii^ rs I I r r c n i n j » j n j, r 1 t a u >■ t ^ j — . a6iVU.000 

CHARACTERM0VEC2*CaREA0OH(SHirTBUFFC2])&6CCTF]# 46190100 
COREAODR(SZCZNECAOOR)+9 3)&6CCTf3); X150146190200 
on XIT? '.^ . ■ /tA?nnnnfi 



end; 
end; 

TF AnDR{ = flnoR-HQt^ fiFQ cfl Tht.iN 



BEGIN 



end; 



M0VE(12^0UTBUFF£R* SHIFT BUFF); 

60 XlTj 



46210000 

X150U62U000 

itl'ini46r'2fl000 

46230000 

46240000 

4 6SSO0 O - 



ENo; 
XIT; end; 



46260000 

46270000 

XI T; end; ^ , 462aQ000 

*********** ******'^*** *****************,****** *i,i,**i,*i,i,in,i,i,i,i,it*i,in,i,i,in,i,t,in,H()2<f 0000 

PROCEDURE caUNTUF(n;lNTEGEK li X150146300000 

I« »2xREAL(l > n ♦ ABSCti Mnn 2^ * \)i ^ a!150l4<s3lQnnn 

%******************************************,** 4 *****************^k**^***j^^ij2 0000 
PROCEDURE ERRQRANALYSISCBUFFERNrt); VALUE BuFFERNR; INTEGER 46330000 



. BUFFERNR/FCRWARn; i^ibo^ a6 Jinpi n 

X ****************#**#«**********♦****♦**********♦****«********** ***^***<^46330 100 
BOOLEAN STREAM PBOCEDURE CMP( A#B# SZOI V64, 52 ) ; VALuE SZ0IV64»S2J X150l46330lS0 
BEGIN _ X15Ql4633Q2nn 



LABEL ERR#XIT; 

sii«a;di«=b; 



SZ0IV64(16(IF 32 Sc NEQ DC THEN JU^^P nUT 2 TO ERR)); 

SZCIF 8 SO NEQ DC THEN JUMP OuT TO ERR); 
ft n y T T s 



X150146330250 
X150146330300 
iH ^ O H^ 33O 350 



GO xit; 

E HR ; TALLY;«1lnMP;sTAtLYt 



X150H6330400 
X150146330450 

a;i50i4633Q5nn 



xn« end; *1S0146330550 

%************1i****i,1>*****-k***i,*i(******-ki,it'k1ii,i,*i,i,***i,i,1,**i,i,-ki,i,i,i,i,i,i,i,i,i,i,*.t,^(^ii^QQQQ 

DEFINE COMPaRE(A)='CMP(DISMAM3*COMPaNEBUFFCA-2M]* X 15Ql 463401 00 



iUFFLTH DIV 64#BUrFLTH )|(; " i;l50l46340200 
%**♦♦***•*******************#**»*♦*******♦**♦**♦*******♦*#* #**#*#**^***^4^33Q000 

COMMENT 10 COMES IN TWO VERSIONS (NO ADDITlflNAL CHARQ£)> ONE 46150005 

FOR REGULAR USE AND ONE FUR DEBUGGING. THE PARAMETER 46350010 

"rnnr»» nrTcoulMr'; Tur norwATTnM m or PcDL-rmuL-n nK, 46350015 

4635QQ2Q 



"CODE" DETERMINES THE QPEHATTON TO BE PERFORMED ON 
BUFFER NUMBER "BUFFERNH" A3 FQLLQwSi ^___ 



CO DC* I 
C0D £»2 



C0DE?3 
CQDES4 



REAO 
WRITE 



CHECK HEAD 
CHECK WHITE 



46350025 
46350030 
463SQQ35 



THE 0E8UGQIN6 VERSION PeRFORMES NO Dt^K I/O. RaTHER* 
IT fliLS MESSAGeC*) WITW MESSAGES SPECIFYING THE 
OPERATION BFiNG PgRFqWMED AND THE DISK ADDRESS / 



46350040 
46350045 
4635QQ50 



»SET OMIT-OMIT OR DEBUG 

PROCEDURE I0(C0CEf8uFFERNR); 
INTFGFR CnnFftfUFFFRNK? 



46 350055 
46350060 
46 3SO0fiS 



VALUE cod£#buffernr; 



BEGIN 

LABEL REEOiiW*RC»WC*XIT*FAKtOUTfLOGIT; 

SWITCH SlwBEIf)iWtic»rtc; 



46351000 
46360000 
4 6 370 000 



46360000 
46390000 
46400000 



1^ 

H 

3 
4 
M 

6 
7 

H 

9 
10 

12 
13 
14 < 

16 
16 

17 < 

18 

19 

20 I 

21 

22 

23 I 

24 

25 

26 4 

27 

28 

29 4 

30 

31 

32 I 

33 

34 

35 ^ 

36 

37 

38 ^ 

39 

40 

41 I 

42 

43 

44 % 

46 

46 

47 I 

48 

49 

50 % 

51 

52 



55 

56^ 

57 



• • 



>r 



16 

17 



19 

20 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31" 

32 

33 



34 
35 



36 



«2 
43" 

44 
45 



47 



49 
SO 



52 

53 



55 
56 



INTEGER JUNK*BNUMrFA; 
DEFINE CQUNTUPERRQRS = BtGU 



ERRGHt=ERRQH+i; 
FRRURS;sERRURSti; 



Oft^3QOOO. 



STREAM PROCEDURE 
B E GIN 



END*; 
SHIFTIT(N'A#8*R); 



VAI.UE N*R) 



LOCAL nn^rr; 

si»»LOc n; si>=si+6/ uijsLUc NNi oijaoi + n ds»=chr; 

Sl>«LOr R; STt = bT46; ut:=lqc rr; ui;=:di^7; nst^rMRi 



46440000 
46440100 
46440200 



46440300 
46440400 
464405 QQ. 



sn«Aj 
sii«a; 
end; 



Dn«B; NNC0S»»32 CHRI 
RR(DS»»32 CHRi 0S«»32 



0S«»32 CHR)I DSIsN CHRi 
CHR)i OS««R CHR; 



DEFINE 

SHlFT(A*B)sSHlFTlTCNTl J=LNTIERCCFA+1*Fa DIV 3) 
MOncTF MAIM THEN ae EL.'ii ?32))tAtfl» 



46440600 
46440700 
46440800 



ENTltR(8x(BUFFLTH*U»NTi))#; 



*15Q146440900 

46441000 

^n0l4644U00 



RNUMi*^eU FFE RNR* ? t 



«150146441200 
46450000 
46460000 



REED! 



60 SICCOE]; 

TF FlLFADnR{=nACflNuW»21lSS Q THFi\ 



BEGIN COUNTUP<ROTOG); GO XJTi ZHQi 

I0C0UKT»« lOCOUNT+1/ 

IF WRT THEN CLfARCD ISK[BUFFgRNR#0J*8yFFLTH-»l > 



46470000 
46480000 
4641Q0Q0 



ELSE 



46500000 
46501000 
^6 5 ^ 000 



46520000 

46530000 

.A6. 54Q 000_ 



IF MAInT THEN m2P AT I ERnC SH I FT BUFF * COmP AREBUFF C WNUm, 

1]»MA0DR{FILEADDR,THUE)) ELSE 
MQVFCRIIFFI THf CPMP AREbUFF L RNUMf 1 1 ^ D I Sk L HUFFFWi^H* 1 1 ^ 
0lSKXBuFFERNR»O3l*OlSKtBuFFERNR* t3»«0eCiMALCFlL£AD0R)i 46550000 
IF DELAY > THEN Xib0l46550050 
IF (NTH»(TlMCtla*lOFT) DiV AQ^ lSS nELAY THEN 4ft55QlQQ 

WHENN(DELAY-NTn/ 46550200 

IOREQUEST(-(RESCBUFFERNR] JslQD[6uFFeRNR])&0C25:40»8]* 46560000 

REStBUFFERNRJ^LOCATlONCaUFFtKNR]); 46570000 



IF SHIF THEN 

SHIFTCSHrpTBUFF*COMPAREgUFF£BNUM*23); 
TF WRT OR MOT MATMT THFM 



COMPAREBuFF[BNbi*l» l3!sU£ClMAL(FiLLAD0R); 
IF LONGR THEN MOVEC 6^9, CQMPAKEBUFF [ BnUM* 1]* 
C n'>'PARE B UfF[BNUM>23?f 



46580000 

X150H6590000 

JL6^-Cm00Q 



IF KWIK THEN 

FiR NTll*l STEP 1 UNTIL 5 DO 
COMf ABEBUFF[flNUH*l*30xNTni«DECMAL(FlLEADDR-»NTl)i 



46610000 
Xl50i466l0l00 
j(il5Ol 466 l0?Q0 



X150146610300 
46610400 
46610500 



COUNTUP(RDTaG); 

GO xit; 



Ht 



IF FILEADDRI»DACBUFF£RNR#03 LSS THEN 
BEGIN CDUNTUP(WflTOQ)l GO^Itl END^ 
I0CQUNT*» IOCOUNT»li 



46620000 
46630000 
46640000 



IF 



46690000 
46660000 
46661000 



SHIF THEN 46670000 

ShIFT(SlHlFTBUFF*UISKlBUFFERNK,2] ); X 150146680000 

DlSK[BlJFFERNR^Q3>'iDlbKCBUFFCRNR>lJ:»nEClMAL(FlLEAD0R)J 46690000 



IF 

; 

JF. 



LONGR THEN Ml3v£( 900,01 SKC BUFFERNR, 3*01 SKtBgFFERNt* 11 34669001 

»iS0446690020 
!tl50l46690030 



KKIK THEN 



FOR NTH«1 STEP 1 UNTIL 5 00 
DISKCBUFFERNR*1 + 30XNTI 3 ! *DECMALC F Il£AODR + NTI ) ; 
IF DELAY > THEN 



IF 



(NTlt»(TlME(n-iaFT) DIV 60) lSS DELAY THEN 
WHENNC0ELAY-NT13> 
IOREQUEST(-(RESCBUFF£RNR3l«lOOtBUfFERNR3)tO . 



46690040 

46690050 

%15014669Q070 



46690100 

46690200 
46700000 



56 ' 
57 



# • 



h- 



[25U0««]»«EStBuFFERNR],LQCATlQK[3UFFERNRJ); 
COUNTUP(WRTUG); 
TF I, (INCi THEN RpTDG { =^^01^-^2 ? . 



46710000 
46720000 
467:^0000 



RCi 



GO ¥IT; 

IF FH,FADD RU nA[HNlJMf 31 L.SS TH F N 



46740000 
46750000 
46760000 



GO xit; 

SEGCUUNTJ* SEGCUUNT+li 

IF R ^ A l J ^ KR ESCe uFF& KN R]} 



ANU RLClQMASK))aQ THEN 



46770000 

46771000 

!tt'>0U67H000n 



BEGIN X150146785000 

JUNKt*LOCATlONC8UFFeRNR].CCf3;WAlT(JUNK#IOMASK); 46790000 

tSET QMITsQMTT OR NOT TU NEUP : xr-^nxa^rQHnnn 



11 



13 



IB 



19 
20 
21 
22 
23 
24 



SPOP 
S5ET 



END ELSE NUWAIT5=NQWAIT+1; 
OMIT 
OMI T=Q MIT PR TUNEUP 



SPOP OMIT 



END) 

IF DELAY > THEN I OFT t xT IMF r 1 W 



X150H6795010 
*li0l46795020 
! t l50l 46795Q 3Q 



IF RES[BUFFERNRJ,[25»e] 
BEGIN 



KEQ THEN 



X150146795040 

*150146795050 

HSQH67g5l00 



LQGIT 



LOGBUFFERtUJ* 
LCGBUFFERt23»» 

LOQa uFFFR rai i w 



46800000 
46810000 
46» t (n00 



L0GBUFFERC1J& 0t2»2»n& 2C9«45t3]; 46810200 
lOcauNTf 46810300 

OECMALtFIt FAODR) & . .^ fl<saiQflQn 



LrGUUFF[;R[43« = 



FiLALCMAlNT)C43;47Jl.l & 
REAL(TEST*1)L^2!4781]; 
l U nCB UFF t R NR JJ 



46810500 
46810600 



JL6J 



1700 



2S 
26 
27 



28 
29 



30 

31" 

32 

93 

34 

35 

36 

37' 



LDGBUFFERC5j«s 
IF IGNORERROtS 
BFQIN 



REStBUFFERNRJ' 

OR NOISEONERROR THEN 



COUNTUPERRGRS; 

IF NOlSEONtRROR THEN WRITEnUISE/ 

SC |g9 9j 



46810800 
X140346820000 
il 4Q 346fl2 lQ0 



X140 

a;i40 
JULMl 



J468<i0200 
346820300 
46820: 



U6I 



1350 



38 
39 
40 
41 
42 
43 ~ 



END ELSE 
BEGIN 
TF CODrsa 



thfn 



itl403a6820400 

46830000 

468310QQ 



COMPAREDATA»=COMPARECbuFFEKNR 
ERROR AN ALYiJ ISC BUFF tRNH)i 



); 



XJVIU. 



46840000 
46850000 
1860000 



JLdJ 



linkitup; 

END ELSE 

BEGIN : : 



46861000 
46870000 
46880QtO 



36 

37 

36 I 

39 

40 

41 4 

42 

43 

44 ( 

45 

46 

47 ( 

46 

49 

50 { 

51 

52 

53 < 

54 

55 

56 1 

5? 



IF I^RT UR MAINT THEN 

IF C0MPAREDATA5=C0MPAHtCBUFFLRNR 

IF TESTpI THEN 



) THEN 



468V0000 
46900000 
46 ^ 1 0000 



45 

46 

»7 
M 



BEGIN 



JUNKB»»BIGCOMPAfiE( BUFFLTH* CORE AOORC DISK J;i50 
tflUFF£RNR» 1 3)» — 1150 



469^000G 
146*30000 
1 4 C*30iOQ 



«9 
50 



51 
52 
53 
i* 

S5 

56 



^ 



IF 



C0READUR(C0MPaREDUFF[E3NUM#1])); 
CHRERR LSS 3 Th£N 



a;i50 

X150 



B EGI N 



F JNOG0OOM2PATTERN CF ILEAOOR }i 
M2PATT£RNCSHIfTByFF,CCMPARE8UFF 

iaMUM»ll^MAnDRfrjrLEAnDfl«TfiUf 



146930200 

146930300 

46 * 4 



IXt 



46*50000 
46960000 
4 6 y?0 00Q 



IF COMPAREDATAIaCOMPARECBUFFERNR) 
THEN GO FAKEOuT; 
END ELSE GO FAKEQUTi 



46V80000 
46*90000 
47000000 



FAKEOUTi 



END ELSE 

IF IGMQRFRRQ8S Q.H NOISfDNFRRQR THFN 



47010000 

47020000 

aH 40 3 479 3Q00Q 



• • 



BEGIN 



>T 



COUNTUPE-RRLRS; 

IF Nnisfc:nNL'HRnR 



END ELSE 
FRWQRANALYSIS(BUFFEHNR) 



ThF.N >NRnF.NOISE.f. 



Xl«03a7030l00 
X140347030200 

i>iU0347Q.in:^nn- 



X150H7030350 

XH03^7030aOO 

^7040 000 



ELSt, ELSE 

IF NOT COMPARtDATA!=COMPARt(BUFFENNF< 

THEN GU FAK[ ; DtTJ __^^_„__ 



ENDI 

GO xit; 



47050000 
47060000 



9 
10 



WGI 



12 

13 

14 

IS 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

M'j 

26 

27 
26 
29 



IF FlLEADDR«=DACBUFFtHNK*n LSS THEN GO XJT; 
IF REAlCBL(RESCBuFFERNR3) ANU BL(laMASK))=0 THEN 
BEGIN 



47080000 
47090000 
47HjqQ 0Q. 



47110000 
S;150U7U5000 

ati5QH7i2Qnxm. 



vlUNKlBLOCAtIONt8yFFERNR3,CCFJ;wAiTCJUNK#IOMASK); 47125000 
iSET OMIT-OMIT OR NOT TUNEUP X 1501471 30000 
£ND ELSE NO>iAlTl»NQWAn»i; !tl50l47l30010 



$PQP OMIT 

*i>ET OMITsQMlT OR 

E N P; 



TUNEUP 



*POP OMIT 



ail50l47130020 
*150147130030 
»15Ql4713aflim 



XITj 



IF OELAY > THCN I0FI|*T IMEC 1 ) * 

IF RESfRUrFgRNfri. 125183 WEQ THFN Gn tnRIT 



XliOl47l3005G 

X1501471301G0 

4714QQQ Q 



END 



IF 

MIJ- 



CUDE^A THEN KES [fiUFFERNR] $ * IQMASk; 



SPOP OMIT 

S3ET 0MIT«0MIT OR NOT DEBUG 

PROCFDURE inccnDEiBljFFERNft)^ 



30 

31 " 

32 

33 

34 

36 



INTEGER CODE^BUFFERNR; 

BEGIN 

LABEL REFQ»Wf HCfWC^XlTf FAntnOiJi; 



VALUE CnpEiRUFFERNRi 



47li30000 
47160000 

.jiztmoasx. 

47180100 
4718OU0 
47180200 



SWITCH Sr»REED*W*«C?WCi 
INTEGER JUNK*8NUM; 



47180300 
47180400 
47180500 



36 

37' 

38 

39 

40 



STREAK PR0CEDURL SPGUT ( ALF * F I LE ADOR> A ) ^ 

VALUE ALF/FIlEADCR; 
HEGTN 



47180600 
47180700 
67181000 



47181100 
47181200 

47181 inn 



LOCAL r; 47181400 

sitsLOc alf; dmsloc u sii»si+7; Qii»oi*7r dsi«chr; 471B1500 
sn»si>i; siigsi-ii oii»a; pstsi cnr; 47iai6Q0 



42 
43" 



DS:» 
end; 



LIT 



sp-LOC fiueaddr; ost-j dec; dsjs/ lit " "; 



44 
45 

46 
47 
«8 
49 
SO 
51 



PBOCEDURE OUTWiTHlTCALflf >'ALU£ AlFI AtPHA ALFI 

BEGIN 
SP0UTCALF>FlLEADDR#MES{»AGEtMESSP3 )i 



47181700 
47181800 
47181900 



IF MESSPlsMESSP+2 GEO WBUFF-l THEN 

BEGIN 
WRTTtCnUTFT^WBUFF-l>MESSAGF[*J); 



47182000 
47182100 
47182200 



53 

S3 

>4 
5S 
S6 



EWDl 



MESSPii 

end; 



.01 



47182300 
47182400 
471 825Q0 



47162600 
47162700 
47 162 BOO 



REEOt 



BNUMl*BUFFERNK-2; 
GO SC COPE J ; 



47182900 
47183000 
4718310 0. 



IF FILEADORJBDAC8NUM/23 LSb THEN 
BEGIN COUNTUXROTOG); GO XIT; 



ENOi 



47183200 
47183300 
47183400 



>r 



OUTWITHITC'R ^")i 
COUNTUP(ROTDG); 
-LQCQU NTia l O cn UNT-^i ; 



*150l4?ia3500 

47183600 

471d36!5a 



Wl 



60 xit; 



IF FlLEADDRtaOACBUFFERNR^OJ LSS THEN 



47163700 
47183800 
47163900 



BEGIN COUNTUPCWrtTUG); 
OUTWITHITCW 2"); 
CnUNTUPCWBTQG) 



GO XITi EMO> 



47184000 
X15Q147184100 
471H4200 



IF LONG THEN RDT0Q«»WRT0G+2; 

IOCOUNTl«IOCaUNT+li 

GO xit; : 



47184300 
47184350 
4 7 18440 



12 
13 



17 
18 
19 
20 
21 
22 



RC J 



IF FlLEADDR:sDAtBNUM*33 
nUTWlTHITC'RC^'Mi 



Li»i> THLiV GO XJI 



segcqunt«»segcount+i; 

GO XITI 



47184500 

47184600 

■ 4 7 i a 4jg^ 



MXLL 



IF FiLEADORlsiJAtBuFFEHNRf 13 
0UTWITHITC"WC2"); 
RE.S[BUFFERNR3» = I0MAax; 



LSS TH£\ GU XIT; 



47184750 

47184800 

-4.?-ta4«00 



47185000 
47185100 

4 7 1d5 2 ^a 



XITI END DEBUGNIK6 101 47185300 

tPOP OMIT 47185400 

%ii*iHt*****ii******ii***n,*,**iii,*i,* J,*.** **************************** *****A**** 4 7 IVOQO O 



DEFINE WCWU = IQC2*W1)## 

REED (REED l)s 10(1* REED n*> 
__ acCRCl)slC(3tRC.l)tff 



47200000 
47210000 
4 7 22 00 00- 



25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



WCtWCl)alC(A.wCl)#; 47230000 

X**************************iit*****iii*iit«*********ik*************************47240000 

PRQCEDURF HRFAKnnwtMApORESS; _^ 472'-.noO0 



BEGIN 
COM MENT 



BiEAKDOWNADORESS DETERMINES THE PHYSICAL LOCATION 
OF THE HEAD ON WHICH THE FAILURE UCCURED* AND PRINTS 
THAT IN FmlKATiriNi flN TH E O UTPUT FT lE nFVT CEJ — 



47260000 
47260005 
4726001^^- 



47260015 

Xt50l47260020 

a72ftn025 



REAL fa; 
I NT EGE R 



47260030 
47270000 
47280000 



TRACK* 

C» 

TR» 



47290000 
47291000 
4729200Q 



40 
41 
42 



su* 

SET* 



47300000 
47310000 
47J 2Q000 



43 
44 
45 
46 
47 
48 
49 
50 
51 
52 



PIN* 
SEG« 
head; 



47330000 
47340000 
4 735QQQQ 



ALPHA face; 

LABEL HS1*HS2»HS3*HS4, found; 

SWITCH HSWI«HS1*HS2*HS3*HS4; 



47360000 
47361000 
47361100 



BOOLEAN even; 
FORMAT 



47361200 
473/0000 
4 7360000 



53 
54 
56 
56 



X4*''HEAD"fI3)* 
DISKF("DISK'M2*X13»*'J"*X4*"TRACK' 
"PIN 'M2*" (CENTER TAP)")* 



/I3*X6*"|"*X4* 



47390000 
47400000 
4741000 



FACEF(A3*«' FACE"»X11*"»''*X4*"SEGMENT *'* A2* X4* "» " ) ; 
FA?»D E CMALCr iL EA QO R ) ^ 



47420000 
47430000 
47440000 



55 
56< 



h 



8 
9 
10 



12 
13 



15 



16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
26 



27 
28 



29 

30 



31 
32 
93 
34 
35 
36 
37 ~ 



38 
39 



DIV C4xuKTYPE)+i; 



SUl = {SETJsaC]AL(FA,[lii!123 )) 

se;t: = (set mod uui; 

FACFSgTF (HEALC(THAC>^>=UCTALCF,A,C^,^il23 )) LSS 50)-*- 



REAUCSCT MOO 2*12) 
10NE«»ZNECFILEAD0«)+1> 
FVFNt»TRACK MOD PsQJ 



474b0000 
«74C>0000 



MOO 2»0 THEN "CW " EUSC "CCW"; 



47^00000 
47490000 
475QQn nO 



C» = IF 



TRACK LEQ 
IF EVEN 
UM 



24 ThEN 
THEN 1 



ELSE 

IF TRACK LEO 

IF E V E N 



47500100 

47^00200 

.47500300 



4f THEN 



47500400 
47500500 
47 5 00 600 



ELSE 2 
ELSE 
IF TRACK LFQ 74 ThLN 



IF EVEN 
ELSE 



THEN 1 



47500700 

47500800 

■ 47500900- 



ELSE 



IF EVEN THEN J EL5E Zi 

trisTrack; 

TRACK ;aTRACK MQU 50 J _ 



47501000 
47501100 
475 01 20 



GO TO HSWCC+lJl 
HSlt XC»0 
PiNtaTRACK DIV 2**^; 



47501300 
47501350 
4 750 14 



HEAOJsIF ZONE = 1 THLN 1 ELSE 
IF ZONE = 2 THtN 5 ELSE 
GO FOUND? 



47501500 
47501600 
47501700 



u; 



HS2 1 XCs 1 

RlNiaTRACK DiV 2 + 4; 
HEAni8TF 7nNrsi thfn 2 ri Sf 



47501800 
47501900 
4 750 20 00 - 



47502100 
47502200 
47502300 



HS3I 



IF ZQNE=2 

GO found; 

itC = 2 



THEN 8 ELSE 12; 



47502400 
47502500 
47502600 



PlNlsC(TRACK*24) OIV 2)+4; 
HEAD«*IF ZONEsl THEN 3 ELSE 
IF Z QNE« 2 THEN 7 EL SE 



13 



47502700 
47502800 
475029QQ 



GO found; 

HS4I XC=3 
PIN^»'C(THA(.K^■26^ 



u i v i^)+5; 



HEAD »« IF ZONES 1 THEN 4 ELSE 
IF Z0NE»2 THEN 6 elSe 
G Q FQ U NP; 



47503000 
47503050 
47503 200 



14; 



47503300 
47503400 
A75Q3SQQ 



40 
41 
42 
43 ~ 
44 



found: 



SEGt = lF MAINT THEN IF WRT THEN "Ml»' ELSE "M2" ELSE 

FA, L 36U23; _____^ 



47503600 
47560000 
475/0000 



WRITE(0UTFI#SUF^SU# ZONE* HEAD); 
WRITE(DUTFI*0ISKF>SETMR^P1N); 



WRITE(DUTFI^FACEF#FACE,SEG); 



47580000 
47590000 
47600000 



46 
47 
48 
49 
SO 



S2 
53 



54 
55 



47610000 

end; 47620000 

%***♦*•*******•***•***•**••»***»***********•**•***•»»•********* **»*»*»*»476 30000 

47650000 
47650005 

47650010 
AND 476b00l5 

47650020 

47650025 



INTEQES STREAM PROCEDURE AnILYZEOESCC RESULT *MS6eUFfER)i 
BEGIN 



COMMENT 

ANALYSEDESC EXAMINES THE ERROR FIELD UF "RESULT" 
EACH 6IT THAT IT FiNOb ON IT PLACED A 6-WORD 



FOR 



MESSAGE INTO '•MSG8UFFEH*' . ANALYZEOESC RETURNS THE 
THE NUMBER OF ERROR BITS FOUNO; 



47650030 



rT 

2 
3 
4 
5 
6 



SItaHESULT; vSl: 

Di J'MSGBurrER; 
S KIP s b; 



si + 4; 



IF SB 
BEGIN 



THEN 



47660000 
47 670000 

4 76 a Q000 



DSJg?! LTT "HFAnCHFCK ERROR * D23*'; 



47690000 
47700000 
47710000 



TALLY:*TALLY+i; 
DS»=27 LIT " ••; 



END, 



47/iOOOO 
47/30000 
47740000 



SKIP sb; 

IF SB THEN 
BEGIN 



47750000 
47760000 
47770000 



10 

11 

12 



13 

14 

15 

116 

17 

18 

19' 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31' 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



DS:=27 LIT ♦•CORt AOOKESS EHRUR ■ 
DS:»11 LIT "ADDRESS - t*"; 
Sl»sR£;^ULT> Si;=a[-f'3; SKIP ij SH, 



022 - 



47760000 

47790000 

-47000000. 



5C0SI53 RESET; JCIF 

SKIP SB)); 
D S;»'i LIT " "? 



SB THEN OSJ9SET ELSE DSisRESET; 



Si:sRESULT' Si:=bi+4; SKIP 2 
TALLY:sTALt.Y + l> 



47610000 
47820000 
47830000- 



XMIU- 



SKIP 
IF SB 
REfiTN 



sb; 

THEN 



47840000 
47850000 
47 86 0000 



47870000 
47880000 
47B<»i00no 



cs;=ia LIT 

DSIS30 LIT •' •'» 
TA LL Y;=rA LL Y-^ l / 



"tU 
»« ft 



inUt ready - D21"; 



47900000 
47910000 
47920000 



end; 

SKIP 

IF sa 



sb; 

THfc N 



47930000 
47940000 
4795 0000 



BEGIN 



DSS517 
DS;»31 



LIT 
UT 



" K E A 



PARITY 



D20"; 



47960000 
47970000 

'9riO( 



-AZJ 



end; 

SKIP 



TALLY»sTALLY+i; 

_sai : 



1000- 



47990000 
48000000 



IF SB 
BEGIN 



THEN 



DS;sl7 LIT "DATA PARITY - D19"; 



48020000 
48030000 
48Q4000Q 



en d; 



DSJ»31 LIT " «; 
TALLYt*rALLY+i; 



48050000 
48060000 
4 BO 70000 



28 

29 ( 

30 

31 

32 { 

33 

34 

35 ( 

36 

37 

38 { 

39 

40 

4,( 

42 

43 

44 { 

45 

46 

47 ( 

46 

49 

50 ( 

51 

52 

53 i 

54 

55 

56 { 

57 



SKIP 
IF SB 
BEGIN 



Sb; 

THEN 



48080000 
48090000 
48100000 



0S«»2 LIT "OK**; 

SlSsRESULTi IF SCa»3" THEN DSjslIT "B" 

ELSE DSl»LIT "A"; ^ 



48110000 
481 20000 
48130000 



46 

47 
48 



DS»sl6 LIT 
DS:»29 LIT 
Si:sSn5; 



NOT 



READY - Die"; 



48140000 
48150000 
4aUQ 00 Q 



49 

SO 

61 

52 

53 

M 

56 „, 

56 



end; 

SKI P 



TALLYl«TALLY*U 

sb; 



481/0000 
48180000 
46 19 QQO 



IF SB 
BEGIN 



THEN 



nSiSlft I IT "MFM PARITY » 017"; 



48200000 

48210000 

■ 46220000 



DS»a32 LIT " "; 
TALLY:»TALLY-t'i; 



xmx. 



482 30000 
48 240000 
46250000 



• • 



>r 



10 

11 

12 



SKIP SBi 
IF SB THtN 
BE G I N 



DS«»2 UIT "DK"; 

SII»RESULT; IF 3C«"3" THEN 0^«»i,IT "8" ELS£ 

OStiLlT "A"; . 



46^60000 
48ii70000 



CSI511 LIT 
DSS534 LIT 
TALI, Y;? TALI Y*li, 



BUor - 016"; 



II II 



end; 

ANALYZEO£SC«*TAi-LY; 



48iiy0000 
48300000 
48^10000 
483*20000 
48330000 
.48340000. 



46350000 
48360000 
48370000. 



- — — OiOJ ^ — : : — : _ '. : — ^_ 48370000 

PROCEDURE eRrqranalYsis(bufferinK); valuE buffernr; Integer 483yoooo 

BUFFERNRf . , 4^400000 



13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
26 



28 



29 

30 
31 ~ 
32 
33 



BEGIN 

CO MM E NT 



404 
484 
4fl4 



10000 
10005 
IQOIQ 



ERRORANALYSIS performs all ERROR ANALYi>IS FOR 
FULL OR AaREVlATED 0UTPUT> 



BOOLEAN V#M2»REA0ERR»««ITERR; 
INTEGER X*CRRS»I*J*K«|^OUNTp; 
ARRAY RTYfQlg^tHBUrrLTHi; 



464 

464 

X 15Q! 4fl 4 



484; 
484: 
48410025 



10015 
10020 



REAL Y 
LABEL 



'RESulT'Junk; 
xit*retRy^display,ogio*check/Ok; 



20000 
30000 
3QlQ,a- 



FAILFCA*," FAILURE")* 

WRDNG(I2)> 

RFSFf"RFJ5UI T QFSC. « "3, 



484 

484 

■ 4 64 



40000 
50000 
60000- 



464 
484 



70000 
80000 
OOno n 



IODFC'I/0 DESC. = '♦)' 

RSAABFC'RESULI DESC = 
lO PSAAFC'I /O D £ Sc. 



SAME AS RETRY "^in* 
3AMF AS RfTRY 'SlU* 



485 
485 



ooooo 

10000 
2OQ0Q 



ISAABFCSAME AS RETRY «*IU* 
INITFCRETRYmOt INITIAL FAILURE 
"ADDRESS)")* 



UN THIS "# 



RETRYF("RETRr = "*in' 

DKFC"RLTRV3"ll*'% i\U E«KURS* ERhCR ROUTINE "' 
"E;<I T£D"}' 



485 

469 
-4fl5. 



30000 
40000 



34 

35 

36 

37" 

38 

39 

40 

41 

42 

43" 



45 
•6 
47 
•8 



19 
50 
51 
i2 
S3 
S4 
55 
56 



XITFC'ERROR ROUTINE EXITED*..")' 
DAF("DISK A0DR£SS«"»A1»A6)> 
NOTRANSFf^^NQ DATA TRANSFERfD ON REaD**)* 



NOWTRANSFCNf) DATA TRANSFERED ON WRITE")* 
WDIFF(I4," CHRSCIN"* 14*" wqS) DIFFeH FROM 
"WRITTEN REC0r<D''"FlR5T IN WRD"*I4)* 



M20IFFCI3#" CHRSdN'MS'" WDS) OlFFER FROM ••* 



48560000 
48570000 

48^800 00 
X150148581000 

48^90000 

48600000 

46610000 

X150148620000 

X150148630000 



"FACTORY-RCDEO RECORD— FIRST 
"IN »<RD"*I3)* 



IN 



M2WACTC"12 WORDS RECORDEU AT FACTORY WEREC"* 
A3,")-")* 

N0ERRFCX16*"N0 ERRORS")* 



48640000 
48650000 
48660000 
48670000 
48680000 
46 690000 



LRDIFFCU*" CHRSCIn'M4*" wDS) DIFFER FROM RETRY"*l2# 40700000 
'••^-FIRST IN WORD"* 14)* X150l4fl>lQOC0 

WACTfl3*" WORDS WRITTEN WEREC "* A3*" ) r') * 1150 148720QQO 



RACT(I3*" WORDS READ WERE C"* A3* " ) t " ) ; 
SWITCH FORMAT NOCQMP I *( "SAME AS NRITTEN"), 
f"SAMF AS RFCQRDFD AT FACTORY" W 



X150148730000 
48740000 
4675000-0- 



800LEAN OKTOG; 

nFFiNF, SPQUTfSPnUTlt,SPnUT2)» 



48760000 

»150148770000 

4fl8aO000 



^r 



LIST 



MOVEANDWRITECTRUE/BUKFLTH/FALSE^OuTFl* 
CQREADDR C SPOUT USP0UT2»l])Jjif; 



488iJ0000 
463^0000 



XOPTCIF BCL THEN "BCL" ELSE "INT")* 

IL(I)» 

BXOPTCBIJFFLTH^IF ftCi THFN "RCL" £L.SF "IM"W 



48852000 
48853000 
48 8 540 00 



XL(X); 



0UNT[n]>=auKTin;=nuNTP>^-i; 



48855000 
490^0000 
49030000 



9 
10 
11 
12 
13 
14 



REAOERRl«N 
ERRORl"ERR 
F R RORSt g ER 



DT(WRiTERR»»BUFFERNR 

GR+i; 

RORStt; ^ 



LSS 2); 



49040000 
49050000 
49060000 



17 
18 

19 
20 
21 



M2;=MAINT 
IF PAGE AN 

WRI TE (Q UTF 



AND NOT WRT; 

D NOT ABREV AND 

irPACiFJ) Fist: 



ERROR GTR I THEN 



49070000 
49080000 
49090000 



IF ERROR GTR I THEN 

WRITE(OUTFI»STAR); 

UR ITFfOllTrTrnBLDi 



WRITECOUTFHDBU 

ELSE 4, IF 
WRlTFCOUTFUn^F 



]*FAIlF*I« = 1F ^vHITERR Tt^EN 5 
REAOEKR THEN "HEAD" ELSE "WRITE")/ 
>CjUNK;-QEClMAi, (FIiFAnDH)),[flt6 1»jUNK)i 



49100000 
49UOOO0 
49120000 



49130000 

49140000 
,49150000 



22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

3S 

39 

40 

41 

42 

43 



WRITECOUTFDi 

BREAKDOWNADDRES 

WRlTCfOUTFiW 



s; 



49160000 
491/0000 

49180000 



IF (WRT OR ^'AIN 
READERR THEN 
I F NOT NQ O ATA T 



T) AND NOT ABREV THEN IF 

tiLh 



49190000 

49200000 

*15Q149^Q10Q0 



BEGIN 



WRITECOUTFICDBLJ); 

IF M2 THEN WRrTEC0UTFl[0BL]^M2hACT»XnPT) 



49210000 
49220000 
492300 0Q 



ELSE 

WRITE 

SPnUT 



CCUTFUDBL]'HAC7*BXQPT); 
CCHMPARERUFF^RUPFFRNR-^ii 



49240000 
49250000 
1270000. 



end; 

WH ILE 



WRITE(0UTFIC0BL3); 
TRUF nn _^ 



-Aii 



49280000 
49290000 
4 9300000- 



segin 

retry: 



WRlT E COUTFUPat))? 



49310000 
49320000 
i,3000( 



JIS. 



1000 



IF NOT ABREV THEN 

IF X»0 THEN WRITECOUTFI.INITF) 

H RI T ECO UTFTfR E TRYFfXL ) ; 



ELi»E 



49340000 
49350000 
49360000 



VIsFALSE; JUNK!=(R£SolT:=RESCBUFFERNR]),[3I53; 

FOR i;sn STEP 1 UNTIL OUNTP CD 

if JUNKgQUNTni»[338l5] THEN ™_„ 



49370000 
49380000 
49390000 



45 
46 
»7 
48 
49 
SO 
51 

a 

S3 
54 



BEGIN 



VJ*TRUEJ 

WR IT Ef Q UT FI tIQ0 SAA F*QUNTn 3 . 1 16815] )J 



49400000 
49410000 
4 9 4 20000 



end; 

IF NOT V THEN 
BEGIN . 



49430000 
49440000 
49450000 



WRlTE(OUT8UFFERt*3#iaOF)i 

OUNTtOUNTP I aOuNTP+l]tsJuNK«X[ 18 13311531 

JlJNKt«IQDrdUFF£KNR]&JUNKr3l43 85?i 



49460000 
49470000 
4Q4B00QQ 



FniT(l»JUNK*lJUTBUFFER[2]/0»l' 
JUNK»TRANSLATEBUFFtRfO)i 
WRITFfQllTFl>5>UUTBUFF£R[iir]); 



49490000 
49500000 
49 51 000 



55 
56 
P7 



end; 

FOR I 
IF RE 



tsO STEP 1 UNTIU X-1 
SiJLT» n LR[I.3 T HEN 



DG 



49520000 
49530000 
49540000 



56 ' 

57 



BEGIN 



13 
I 14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
26 
29 
30 

31"^ 
32 
33 
34 
35 
i6 



38 
39 



40 
41 
«2 
*3~ 



45 
46 
47 
48 
49 
50 
51 
52 
53 
M 
55 
36 



WRlTE(OUTFX»«SArtUF*IL); 

TF MRITFRR THFiN C^O UOlH £.(..'>£ 



GO check; 
end; 

WRITE fnuTBt]FFFRr*3»B£:5F^{ 



49SbDO00 

49^60000 

4<?570jcm-a-, 



EDI TCl,RESULT*OUTauFF£R[ 23/0. 

IvJUNK^TRANSLATtBUFFtR^C;; 

WRlTEiCrUTFr'V^nVTBiiF FERC^J); 



49580000 
49S90000 
496QQ000 



CLEAa(0UT8UFFER*9); 

IF ERRSS»ANAuYZE0ESCCKESUl-T»gUNK8UFFER)-l GEQ 



49610000 

496iJO000 

.A96J000iL 



FOR Y:sO step i UNTIL ERRS DO 
BEGIN 

»^nVEC6^JUNKBaFFEK[Yx6 3>QUTBUFFL><[2ni 



49640000 
4961)0000 
4 9660000 



END 
FLSE 



WRlTEtOUTFI#6#OUtBUFFERC*3); 



496/0000 
49680000 
496 90000 



CHECK* 



MRITECCUTFI*N0ERRF); 

IF WRITERR AND NQT ABREV 



49/00000 
49710000 
497 20000 



THEl\ GO UOIO' 



IF ABREV THEN GO XITJ 
IF WRT OR MA INT THEN 
BEGIN 



49730000 
49740000 
497^0000 



IF Result, t3JUbJ»IOD[el.TFE'^NR3.[33!153 + l THEN 
BEGIN 
rtH I T E .r0 U TFUN TRAN S F 3 ; - ^ 



49760000 
49770000 
4978000-a 



-ta^ 



IF X NEQ 

GO Doio; 

XL^ _- 



3 THEN ECXJtaO; 



DISPLAYI 



IF COMPAREDATA TH£n 



7 . : s"t ; 



49790000 
498U0000 

/lOHlOQQQ 

• r* " WW ^1* W V 

49820000 
49830000 
49840000 



498t)0000 
49860000 
4 9Wfcl 0U 



CCMPAREDATAJaglGCOMPARECaUFFl-TH, *150l 49862000 

COR£AD0rCDISKCBUFFERNR#U)' 49862100 
COREAQQRCCOMPAREBUFF X 1501 4986g?QQ 



[BuFFERNR-2,n))& 
BLCFSTtRR)t35«38U0]<i 

BH^RnFHR)r;;5«j8;iQja 



BL(CHRERR)tl2»35ll33; 
FOR H«0 STEP 1 UNTIL X-1 DO 
IF REAL{CnMPAREDATA)»Ei:n THEN TF NOT 
CMP(DlSKC8UFFERNHMl'RTY[2J = I*03»BUFFLTH 

BUFFLTH) 
THEN . ^ 



XlbUl49862300 
«lbUl49862400 
^lt30H98625QO 



*150i49862600 

49870000 

—^ 49 68 000 



BEGIN 



DIV 64» 49890000 
ill50l49a90l00 
49^00000 



WRlTE(OaT0urFERi*3»RACT*BXOPT); 
WRITECTESTBUFFERE * 3 > IS AABF^lL ^ ; 



M0VE(2*TESTBUFFER*0UTBUFFEHC3]); 

WRITECQUTFI'5»0UTBLFFEHL*]); 

IF X NEQ 3 THEN E L X 3 t =-K£al( COMPAREDATA ) ; 



49910000 
49V20000 
49940000 



60 DOio; 
end; 

WRltE(QUTri); 



499b0000 
49960000 
49V7OQ00 



IF COMPAREDATA THEN 
BEGIN 
IF NOT NODATA 



49980000 
49990000 
50000000 



THEN 



BEGIN 

WRITECDUTFiCDBL3»RACT*8XOPT); 
SPQUTCDISK^BUFFERNR); 



50010000 
50020000 
%150150021000 



X150150022000 
50030000 



23 ' 



26 ' 
27 
28 
29 ( 
30 



34 
35 I 
36 
37 
38 I 
39 



42 

43 

44 ' 

45 

46 

47 

48 

49 



e 



53 ' 



56 



'W 



^1 R I T E C G U T F i ) ; 

end; 

IF X :xiEQ 3 1HEN 



E:L>.3:=hLALCC0MPAHEDATA); 



5006000C 

A15U150061000 

500700 00 



IF WRT THEiv. 

WRITEC0UTF1*W0IFF#DIFFL^ 
IF M AIInT Th£N 



£lSe 



sooaoGOo 

50090000 
5011Q0QQ 



^RITECOUTF i»M2| 
IF E[K3=0 IMEN 

BKGIN 



1FF*DIFFL)> 



501<:0000 
501^0000 

■jniaouno 



KJ=Xi GO DOIO; 
END EuSE 
IF X 'MEM THEtj — 



50160000 
50170000 

jtfiini SOI 79000 



10 

11 

12 
13 
14 

'(IS 

lis' 

17 
18 



19 

20 



o£(JlN 

VS=BI^>CuMpMKt(bl.iFFLTM» 
CUnLADHKC jTbK [ RUFF E K.sRM 3)* 



*lb0i501/'<^l0C 
*15ai501d0000 

:} i3 5 i,'^ni yo oQo. 



C0Kt.A0DH(HTVCK»0 3 ))) 
IF X ;^E§ THEiV 
IftHlTFCLjUTFlLDBLl^LRniFF^DIFFi Vi 



%l50i5019ui00 

50210000 
■xl5m5Q<!20 QQQ 



end; 
K»5x; 

E ND E LS E 



:<-lbOi502jGO0O 

502**0000 

502!ja00Q 



BEGIN 



IF X NEQ 3 THEIv EtXJ»*0' 
WRrTE(niJTBurFE:Rr*3iRACT^ B XC PT) 



50260000 
50270000 
502fl0000 



Z2 
23 

"- 

25 

26 
27 
28 
29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

SO 

51 

52 



WRITE(TtSTdUFfERC*J*NaCUNp[RtAL(M2)]); 
MOVECa, lESTBuFFEH*Cu7HUFF£Rt3] ); 
>vRITECaUTFI^9tUUTBlFFEhL* 



end; 

IF 0KT06 
MJllK. 



-U^ 



50J00000 
50310000 
50320000 



THEN 



*l&Ol 



50330000 
50331000 
5n33itQn 



FND 



WRlTEC0UTFlC0bl,3*XnK);GG 

end; 

FLSE. 



XIT, 



*1501 
X1501 



IF COMPAREOATA THEN GO 
WRlTECOUTFI»NOTRANSFJi 



DISPLAY ElSE 



50331200 
50331300 

')03<tonna 



-DOTQI 



5O3S0OOO 
50360000 
50370000 



IF WRITERR THEN 

IF RESULT.t33ll5]=IQUtBUFFERNR].C33:i5 3+l 

wRITECRUTFT^NQWTKANaFJ; 



THEN 



5O3B000O 
503V0000 
50400000 



IF X»*(H»X3*ls4 THEN GO XIT ELSE 

IF READERR THEN IF ECU STR C THEN 

MOVE ( BUFFLTH* 1 SKC BUF FERNR> 1 3 ^ RTY C I # Q 3 H 



50410000 
50420000 
5Q4300Q0 



0LR[I3:»RESULT; 

I0REQUEST(-{REStBUFFEHNR3 J5lCD[BbFhERNR3 HO 

C25I40!83/HESi:6uFFERNK3,LDCATIQn[BUFFERNR3); 



50**40000 
50<*50000 
50 ^6 00 00 



JUNKI«LOCATl0NtBUFFEftNR3,t33Sl53l 

WAIT(JUNK»I0MASK); 

LOGBUFFFRtSU* RFALCBaOLFAN ClOGBUFFER [ 531 



sm. 



50470000 
50480000 
5 0460 100 



IF RES 
BEG IN 



bOOLEANCRESCBUFFERNRJ)); 
[BUFFERNRJ,[25J83 NEQ THEN 



50'*80200 
504VOO00 
50500QOO 



53 
54 



IF REAOERR THEN 

COMP AREBAT A I »C OWP ARE C BUFf ERNR ) i 

GD-. retry; ': :: ■ ■'... ' : ■ '.. r ■ / : 



end; 

IF REA 
IF_ 



50510000 
50520000 

5Q 530QOO 



DERR THEN 
WRT PR HaINT 



THEN 



^1501 
itlSOl 



50540000 
50550000 
50550100 



55 
56 
S7 



IF comparedata:scomparecbuffernrj 

GO RETRY ■ 

EUSE . 



THEN 



X1501 
X1501 
X1501 



50550200 
50550300 
5Q550a0O 



• • 



10 

I " 

12 
13 

I M 
15 
16 

I <7 
18 
19 

) 20 
21 
22 

I 23 
24 
2S 

I 26, 
27 
28 
29 
10 

32 
33 



34 

35 

36 

J?" 

38 

39 

40 

41 

42 



•5 
46 

I 47 
U 
49 

\ SO 
51 
52 

I S3 
S4 
55 
56 



GO OK 
ELSF 

PFwTN 



'inr- Iti " A !> ,11 , „ 

cktogjscdmparedatat»camparecbuffernr); 
60 retry; 

END ^ 



*150150bi0500 
Xlb0l50b50600 



ELSE 

GO ok; 



a;isoi5o&5060o 

X1501505S0900 

xisQi'inS'iiono- 



FNn, 



OKI 



X150150551100 



XITJ 



WSlTE(OUTFn08t.3); 
WRTTECnUTFlCDHI JtQKFrXl )i 



50580000 
50590000 
50600000 



t^RITF(OUTFl); 

Cn^^PARFDATA; = F AU.SE; hCSsVV? 



L0GBUFF£Rt3]«* 
END ERRORANALYSIS; 



LOQBUFFIR C 3-1 & X 1 1 : 44 J 4 3 ; 



50610000 
50620000 

a i ibo i5 n630ooo - 



50631000 
50640000 



STREAM PROI 
VALUE 
_ BEGIN 



fNHUTOio^ 50640000 

i>*i,i,* if *i, . #fi,t*i^t* if*********** ******* *i,*****it *i,**i,*i,it**i,**^^^ 
CEDURt GETPATER.N(8UFFuTH.ShiFTBUFK,PATtRN,KWlK); it. 150 150660000 

BUFFLTH*PATFRN*KWTK; s, lii mcnATnnnr, 



LABEL XIT; 

ou«shiftbuff; 

K^ T K f ft f ns tarti T T"n nnQQ00n>'; 



DSt = iJhESt.T;D-5 5 = iaSET,[jS! = 2RLStT; 
CS!=li;LlT"124H -♦■<(. GS'S 

r.s;-L, IT iL).i;=rLiT'v 



jaii 



27tOSla8LlT"Q>Sx")); 
viUMP OUT TO XITJ; 

JUMP OUT TU XH); 
BUFFLTH(0S!=8LlT"t" j; 



S1150150670000 

50690000 

50700000 

ilsnmn7innnn 

X150150O0100 
%l50l507i0200 
'^ no 1 'ion 0300- 



58150150/10400 

ail50l50/l0500 
Xl'iOl'ini^^OOOO 



%150i50730000 
*150i50730l00 
5QM00Q0 



END GETSTd; 50750000 

!****************♦******«*****♦#**♦*****#** ^f**V»* *********************** 50760000 
PrOCCPURE GETNEWflnORESSCf^ODEU VALUE cOdf; INTfGEr cOnF ; 507/Oqoq 

B r r. T M 



BEGIN 
C OMM E NT 



GETNEWAdoRESS is RESPONSIBLE FOR ALL DISK AQOHESSING 
DURING THE TESTS, THE VALUE 0^ "CODE" DETERMINES 
HOW THE DA ARRAY IS TO BE HANiPULATED AS FOLLQWSl 



50?80000 
50780005 



50780015 
507tt0020 
50760025 



CODE=C 



SHIFT 
RIGHT 



ADDRESSES 
AND PLACE 



1 WORD TU THE 
NEW ADDRESS IN 



code*i 

C00E«2 



THE FIRST WORD OF EACH ROW# 
USED FOR REVERSE ADDRESSING 
TESTS V 



50760030 
507a0035 
50760040 



FILL6 DACRDTOG-2**] WITH THE 
NEW MUORESS. USED IN TEST 2. 
FILLS DA[WRT0G»OJ ANp DACWRTOGM] 



50780045 
50780050 
50760055 



C0DE=3 



WITH NEW ADDRESS. USED DURING 
W9ITE PASS On FORWARD ADDRESSING 
TESTS. 



50780060 
50/80065 
50/80070 



FILLS DACRDT0G-2#iJJ AND 
DACR0TaG-2*3] WITH NEW ADDRESS, 
USED DURING READ PASS ON 



50780075 
50780000 
50780085 



C0DE»4 



FORWARD ADDRESSING TESTS. 
DOES NOT ALTER 0At*#*3, USED 
TQ FIHD. FIRST AOORESS TO BE 



50/80090 
50/80095 
50780100 



50780105 
50780110 
5Qyfr9 H5 



2< 
3 
4 
54 



7 
8 
9 
10 
11 
12 
13 



16 

17 I 

18 

19 

20 ' 

21 

22 



25 

26 ' 

27 

28 

29 I 

30 

31 

32 ( 

33 

34 

36 < 

36 

37 

38 ( 

39 

40 

41 ( 

42 

43 



47 

48 

49 

50 ' 

51 

52 

53 ' 

54 

55 

56 ' 



e 



>r 



1 

2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 
13 
14 
(lb 
16 
17 
IS 
19 

2a 

21 
22 
23 
24 



2S 

26 

27 

28 

29 

30 

31" 

32 

33 

34 

3S 

36 

37 ~ 

38 

39 



TKJirtO, CA CALU lo MADE WITH 
THIS PARAMETER PRION TG RUNNING 
ANY TP..ST). 



50^60120 
507a0l25 
5 0^801 3 



LABFL XIT>XITl*XlT2^QQNe:>QFAKF#SKtP«l UUP* 7 nNFnOMF* F 1 MnmiT i 



50780135 
50780H0 



INTEGER Indirect; 
REAL jump; 

nFFlNE RQHT = II.»INXgJUMPff; 



IF CODE-4 THEN 
BEGIN 
I F N OTdONfi 



:tl50l5079l000 
*lbOl507V2000 
X l 5ni507q3Q00 



OR MATNT) THEN 



BEGIN 
WHILE NOT 
B EGIN 



xi5ai507y4ooo 

X150150795000 
ll9ni5Qy<86000 



TWOTC/ONEI=ZNECFILEADDH)*ZONEWORD) DO 



riLEADORl»{iOOx(FlLEADOR DIV 100) )*SZC ZONE+ 33i 
IF REV THEN FiiEAUOR»»FILEADDH-'l ELSE 

PlLE^DDt^taFlLEADUH + SZrZONEi* ■ 



%150150^V7000 
«150l50797l00 

a ; i5oi507V7aoo 



ENn; 

ZONEOFFbETJaOFFSETts 
A B S CFILEAD O R-( C tFIL t. ADDH 



Xl50t507y7300 
X150150797400 
Xt5Ql50797500 



SZCZQNE+ 
(IF R£V THEN 
SFA lgQI 



OIV 10 .0 JX10Q ) * 



S!150i5Q7^7600 
X150150798000 
* l i? 0l5 7V9000 



6 ELSE 3)])); 



-GSL 



OELTAtsULTACZONE]; 

ENOi 

in XTT? 



X150150800000 
X150150801000 
il!l'ini50fl02000 



ENDJ 
IF ADORESSINGCOMPlETE 
RFfilN . ^___^__ 



»150l50802l00 
X150l50a03000 
tlbtU5Qft040Q0 



THEN 



FlLEADDR!*-i; 
GO xiTi; 

JEMlL- 



31150150805000 
X15O150821000 
ltS0l5QB2200O 



FlLEADORtsIF BL(COOE) THEN 

DACABS(RDTOQ-3),23 

FLSE : 



»lbOl50823000 
X150l50a24000 
'tl!)0l50a^5O0XX. 



SKlPi 



UIRECT»=IF 



DA[ABS(WRT0G-1 )*0J; 
REV THEN -1 ELSE W 



X150150826000 
Xl50l50e27000 



IF JUMPOFF NEC 1 OR NOT LONG THEN COUNT l»cOUNT+l ; 
% 

IF KWIK THEN '■ ■••■'•. : ■'^ . ". ' :. . '■ '■■■ ■ ' . ■■■' 



*l50l50a29000 
»150l50830000 
1 1501 50630 500 



%150150831000 
Xl5O150a32000 
X15015Q832100 



40 
41 
42 



45 
46 
47 
48 
49 
50 
51 



53 



54 

55 

S6 



BEGIN 

IF FILEADDR««FILEADDR + Iii LEQ EnDADUH-5 

IF SFA NfCO BFfiyNAUQW THLN GO nFAKEi 



THEN GO XlTi; 



IF FILEAODR* 

GO ofake; 
en d ; 



.SFA»*BEGINAD0R*6 lEQ EN0AODR''5 THEN GO 



J:i50i50832200 
»150150832300 
Xl5Ql5Q932a00 



IF NOT (LONG OR MAiNT) THEN 

BEGIN 
ROOTls(FIL£ADDR DIV lOOixlQO; 



XlTll S09325QO 

XI 50 150 8 32600 
11501 508 32700 



UQOPf 



DELTAl»DLtAt20NEU 

INXt»3 * 3J<REAL(REV>> 

IF ZONE0|-FSETI»ZQN£0F€S£T»DELTA 



X150150833000 
Xl50l5083ao00 
ii ;1 50 l5 0835 QQ0 



GEQ SZtZQNFl THCN 



1130150836000 

1150150837000 
1150150845000 



ZONEOONEl 



BEGIN 

IF SFAJsSFA+laOELTA 
BEGIN 



Then 



DC 



X150150846000 
X150150847000 
X150l50a48000 



IF Z0NE»*(20N£'^340IRECT ) 



MUD 3»ABS(DIRECT-n 



X150150849000 
then 50850000 

xiSQi 50851, nfin 



• • 



h 



13 



16 
17 
18 



19 
20 



21 



23 



2S 
26 



27 
28 
29 



34 
35 



36 

37' 



38 
39 



41 

42 

43* 

44 

♦5 



♦7 
•8 



«9 



a 



55 

S6 



•sz. 



UNTIL TWQTCZONL'-lUNEWCRQ); 
ZONEUFFSET:=OFrStTj=.SFAJ=0; 
OElTASsOLTAr^nNF ]> — 



CILEADORJ^ROOT+SZtZONE+INXJ; 
GO TO XIT2^ 



XlTSt 

■FiNnnuTi 



IF ZONEDFFSeT:sQFFSLT + SFA GlU S^UQnLJ THEivl GO 

End; 

FII EAnnR;8HnnTfSZ[ZQNE-l-lNXJ-»fZnNt--(lFFSFrxpTMFrT)f 



%lbOl50852000 
«lbOl50853000 

X150150855000 
X150150856000 
%15ni50H5700Q 



IF REV THEN 

IF FILEADDR 
RFfiTN 



Z0NEDQNt;5085a000 
aS1501508b9000 

jusui^n-aaoooo. 



< beginador then 



IF ZUNeOFFS£T=0 
GC LUOP; 
ShJ: 



THEN GO OFAKE; 



X150150861000 
X1501S0862000 



j;i50150864000 
Xlb0l50865000 

»ii}Qi'30866nnn 



ELSE 
ELSE 
I F FILEADDR 



> ENDAODR THEN GQ FInDQUTj 



X150150867000 

X150150868000 

AiMi^aM9jmQ_ 



GD TO 
END 
ELSE 



X I T 1 #• 



IF LONG THEN 

8EGIN 
IF FlLEAnpRr^FILFADDR^DELTA 



«lb0l50870000 
X150150871000 
^150 15 06720 00- 



LEQ eNDADOR THEN GO TO 



X150150873000 
X150150874000 

xn; 50674100 



IF COUNT < SEGS-1 THEN 
BEGIN 

CnUNTUPCJUMPOFF); 



SFA!«FlLEAOORJ*SFAtJUMPOFF; 
IF LONGR THEN 

TF RLf.lliMPnFF) THLN 



X150150875000 
ii;i50l50876000 

JU^JUixxazzxxoo . 



BEGIN 

IF BLC JUMPCOUNT) 

juMPcuuNrt'i; 



X150150878000 
«150150879000 



THEN GO CKAKEJ 



SFA;«FILEAODR»»SFA-l+ 

(IF I««C£NOAOOR-BEGINADDR) MOD DELTA ' 
I GEO OELTA-LOELTA THEN DELTA OIV 2 



»150150881000 
X150150882000 
ail 50l 5Qti63Q QO 



!S150150884000 

OR X150150885000 

%150l508e6000 



ELSE I)i 
IF FILEADDR > ENOADDi^ 
G Q TQ QFAKEi 



THE^ 



end; 
switcher»«tru€; 

END 



!i;ib0l50e87000 
Xl50l508a8000 
» l 59 l5Qa 9 90QQ 



ELSE 
GO 

sm 



X150l50e90000 
X150150891000 
itl50l50a92QQQ 



DFAKE 



ELSE 

BEGIN 
IF REV 



THEN 



IF FlLEADDR»sFIi.EADDK-SZ[C2Mi;(FlttAD0R) + 2) 
JUMPOFF THEN 

GO X I T , 



X150150893000 
31150150894000 
a il50 l5Q69500 Q 

X15Q150896000 
« ISO 1 50897000 
» 150 150898000 



MOO 33 GEO 50899000 

X150150899100 

-___ i< 1 5Q l5Q9 g0Q Q0 



ELSE 
ELSE';. ■ 
I F FlLEA0DRrsFrLEADDR-»SZi:iNECFlLEA0DR}3 LEQ JUMPOFF 



X150l5090i000 

J190150902000 

THEN 5Q9Q3Q00 



DFA KFr 



GO xit; 

IF JUMPl3jA[R£AL{REV)OUMPCauNT«=JUMPC0UNT+2] 
BEGIN 



< 



AOORESSlNGCOMPLETEI«TRUEi 

JUMPC0UNTI«0; 

I F . R E V THE N 



X150150904000 

THENX150150905000 

;t l5Q1509 <iQQO 



XI 50 150907 000 
X150150908000 
X150 i5 0«Q 9Q OO 



rf 

2 
3 

4 
5 
6 
I 
8 



10 
11 
12 
13 
14 

t 

18 
IS 
20 
21 
22 
23 



24 

2e 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

3S 

36 

37* 

38 

39 

40 

41 

42 

43 



4S 
46 
47 
48 
49 
SO 
51 
52 
53 
>4 
55 
56 



BEGIN 
FILEADORJa-i; 

end; 



«lb0l50y09l00 
«lb0l5cy09200 
: t l50l5 Qytf9 300- 



GO TO 

End 

ELSF 



XlTi; 



BEGIN 
FiLtADDRJsJUMp; 

JUMPnFFUjACREAL(RKvJrJUMPC.I.il,JNTtVl? 



X150150909400 
Xl50i509l0000 



XITI 



end; 

ENDi 
IF WRTLnCK THEN 



ilb0l50Vl2000 
31150150913000 
1150150914000 



X150150915000 
X150150916000 

iH5Qi'in9i7nnn 



IF WRT THEN 

IF TWOTCCFIUEADDW 
BEni N 



DIV 10000) MQC lOO'LOCKWOHD) 



IF CODEa-iJ THEN 

FIi.EAD0R»*ClO0OOx(FlLEADDR Olv 10000)) + 
(REALcRrV)xq999)J 



I150150918000 

THEN*150150919000 

a;i5015Q92Q000 



«150150921000 
j;J50l50922000 

*i50i5n923nnn- 



FIlEADDR»*FIlI:aUUK+DIRlCTx(10000-SZC(2NECFILEAODR) 50924000 
+ 3-DlRtCT) MOD 3n> * 150 150925000 

QC skip; ^ ilil5Qnn926nno 



end; 



XlTll 



IF NOT TW0T(ZNECFlLEAUDR)»20NEWaKD) ThEN GO SkIP; 



IF CODE-O THEN 
BEGIN 
DACWRTOG#33laDA[WRTUG*2Jj 



X150150927000 
X150150927100 
ati50i'sn927?nn 



OACWRTOG^OjraDAtWRTOG'lJ'wOALWRTOG^ajJaFILEADDR; 
OACWRTOG*23i*FILEAOOR/* 

iJNB . ^ : 



K15015U928000 
Xl50i50S'29000 
*1 50 I 5 0^ 3 M., 



ELSE 

IF CQ0E»1 
REGIN 



X150150931000 

*150150V31200 
a tl 50l50932000 



THEN 



DAiII«»R0T0G»2,l]l«0A[l>0i;DA[I,3]«sUACl*2]; 
DACl,0 3»aDACi,23«aFILEMUDR; 

END . 



X150150933000 
*150150934000 

a;\50i')OV35ooii- 



ELSE 

IF C0DE=2 THEN 
BEGIN 



X150150936000 
X15Q150937000 

»nQl'^n93annn 



DA[WRTOG*l3t*DACWRT0Q»OJ JDAl^RT0G*03>aFlLEADDR; 
END 

£L1£ ______^_________ 



X150150939000 
^150150940000 
21150150941000 



BEGIN 

DACltsRDTOG-2'3] :*UAtI*23;nACI*2J5*FlLtAD0H/ 

end; 



X150150942000 
X150150943000 
tl5Q| 50944000 



%150150945000 
«150150946000 
itl50l50V47000 



OONEl END OF QETNEWADDRESS; X150150948000 
Z********« ************************************************* *************5|^ 
ST REAM PffflrEnilRr TESTnF.Sr.RTPTlONfTrST.MATMT*WRt.RFV.«tWIF.inMr..t< • 5141 000 



OUTBUFFER^BUFFLTri); 

bufflth; 

BEGIN 



Value testm'1aint*wht^rev*5Hif'LUng*lL' 



LABEL S*WO*XlT»T#f»*W#L; 
nlfflLiTiurrFR; 



51420000 
51430000 
51440000 



DSisS LIT "TEST '•; 

SIlsLOC TEST; 0SJs2 QEc; Oi:=DI-2; 
dii^qutbuffer; UT;sDi-t-7j nszxg ltt 



51450000 
51460000 
51470000 



MA1NT(DSI»LIT «M«; WRT(DS«*LlT 

DS«*LIT "2"; JUMP OUT TO s); 
DSl»6 LIT '♦NORMAL"; 



dsssfill; 



"1"; 



JUMP OUT 2 TO S); 



514B0000 
51490000 
515QQ000 



51510000 
51520000 
, 5 1 530 000 



i?) 



# • 



IF^^ 



10 

11 

12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 



35 
K 
37" 
38 



39 

40 
41 
42 



43 
44 
45 
M 
•7 
«8 
49 
50 
61 
52 
53 
S4 
35 



^ 



SI DSiall LIT " SEGMtNTa--"; 

MAINKWRTC JUMP OUT 2 FQ T); QS:»«:4 



LIT 



T» 



51540000 
51530000 
51560000- 



L? 



whtcjump out to i); waintcjump out to d; 

DS|»17 I IT '♦RgADAgrLlTY TEST."; 



51570000 
51580000 

5tS9Qnon. 



LL(0S» = l4LlT"L0iNd I/O TEST* '♦; JUMP OUT TO **D)} 
L0NG(0Sf24 LIT "SEGMLNT CHOsS-UV^H TEST,'»; 



51600000 
X15U151600100 
51 6^00 00 



PJ 



.JUL 



JUMP OUT TO WO); 51620000 
WRTCDSlsJO LIT "WORST CASE"; SHIF(0S|»9 LIT •♦ SHIFTING"; 51630000 
JUMP OUT 2 TQ P)J DSr*9 LTT ♦^ CONSTANT"); 5l6 a0nQn 



51650000 

WRT(DS»»9 lit " PATTtHN*"); 51660000 

SI«Ti n c aui-'Fi TH;qSi=3Dec;li :sDi;ui;snl-3;QS»=rn t in m=li : 5i 6/0000 

! e . & n n n n n 



wt 



0Sl«4 LIT " wo ", 
REV(DSl«r LIT "REVERSE"; 



JUMP OUT TO W); 



516QOOO0 
51690000 
51/00000 



WRT(DS:=4 LIT " R/W"; 
DSta6 LIT " READS"; 



JUMP OUT ro xiTj; 



51710000 

5l7ii0000 

-5Ll7 3 QQ fl. 



XITJ 0SI*UIT ")•♦; CND; 51740000 

%*****■* W*:* **■***'■*'* W*'k*i,**:*ii'ii^#*** it'll ****** **..** I,*** 

flOniFAN PROCenuRF STnPTHFTFST; ^i'^0\^\7ii^nc\n 

IF SC«»(SC + 1) HDD 100 - O lh£iN X 15015 1/43100 




11 50 IS 1 750 inn 



- - _ - _ M i-3\i j-j I r liUj 1,11,1 

%************ ********************i,**in,i,i,i,i,*i,i,ft,i,i,i,i,.i,i,i,i,t***i,*i,***i,^\7^\ 000 
PROCEDURE FIMSHQUICKTEST(REEU);VALUE REEO; BQClEAN REED; 1 150 151/52000 

°'"''" . tl50l5l753n00 



BEGIN 



IF SeQS GEO 6 THEN 
-IF RFFO THEN 



BEGIN 
C0UNTUP(RDT0G);RC(R01UG); 



X150151755000 
XlS0t5l756000 
1150151757000 



ELSE 

BEGIN 

c UN T u p c w R to G ) ; wt ( w e T Q ) ; 



»:150151/58000 
X150151/59000 
a;i50l5l760000 



IF 



end; 

NT1»«SEGS 
BEGIN 



%l5Ol5t7M0O0 
XiSO IS 1762000 
Xi50l5l763O0Q 



MUD 6 NEfi THEN 



NT2J«2xRO;SETlOSIZEClODtNT2 3'30xNTl); 
IODtNTa3,t27»63l*CNTlERCNTl); 
DACOf03lgENOADOR*ENTIER(NTl); 

tJnucf^.rikrn.ni.nArn.t i^s 



X150151764000 
X150151765000 
%150151/6600Q 



MOVEC3#DA[O»O]»DAC0*13); 

I0(2-R0*NT2); 

I0(4»RD»NT2); 



Xl50l5i767000 
%150151767100 
X 150 15 1768000 



SETlOSIZe(lOO[NT2 3^QL08UFFUTrt); 
I00tNT23.C27t63»«CBUFFLTH+29) QIV 30* 



X150151769000 
X150151770000 
%150151/71000 



X130151772000 
»150151772100 

»l^oi5 l 7noqo 



2 

3 
4 
5 



h 



ADDRESS I NGCQHPLLTE.!=rALi>E/ 

sfa:«fileadcr:*beginaodk; 
.e nd : 



%150151/74000 
1^1501 51/7 6000 



X************************4;****««**********ik********************5][777000 

X150151778000 

iisQisi/einnn 



LABEL KWIKWRT#KWIKREED»XIt; 



10 

ir 

12 
13 
14 

ns 

117 
18 
19 
20 
21 
22 
23 
24 
2S 



26 
27 
2S 
29 
30 
31 
32 
33 
34 
35 



DAC0*03;=FILEADDR* 
M0VE(3*DAC0,0]*DA[0,1]); 
-I 



IF WRT AND NOT RO THEN 
IF SEGS < 6 THEN 

ri N T SH QUlCKT F ST CFA LSE) 



a;l50l5l7tJ2000 
X150151783000 
X150l5l7a4OQ0 



ELSE 

BEGIN 
WlQll. 



X150151785000 
X150151786000 
Xl'^015l7a7000- 



KWIKWRTI 



*150151788000 
il5015l789000 
8.15Ql'>l7V0000- 



stopcheck; 

-GETNEWAnDRESS(}>); 



WC(wRTOG); 
IF ADDRESSINGCOMPLETE 
BEGIN 



*150151791000 
X150151792000 
a;lhni5i7J3ooo- 



ThEN 



finishquicktest(false3; 
da[o>o]isfileador; 

-MnVE(3»DAC0»0T»DAC0*l.l?? 



*lb0l5l794000 
!tl50l5l795000 
itl 50l 5 l7V600 a 



END 
ELSE 
BEG IN 



X150151797000 

*150151798000 
»150l5l799000 



WCWRTDG)' 

GO kwikwrt; 
rN pf 



*iboi5iaooooo 

*150151801000 
i H b Ol5ia0 20 0- 



end; 
if segs < 6 then 

finishmuicktesktrue) 



X150151803000 
X150151804000 
lil5Ql5ia05G00 



ELSE 

BEGIN 
REEDf2U 



X150151806000 
X1501518U700G 
mOl^lflOflOOO- 



getnewaddress{3); 

if addressingcomplete then 

begin fimshquicktest(thue)# go xlt^ e^^o) 



X150151809000 
X15Q151810000 
ilSOlStBllnOQ 



%150151812000 
X15015;81J000 

* 1 5Q1 51 8 HOOO 



37 
38 

39 



KWlKREEOJ 



REED(3); 

I 

STOPCHECKJ 



»150151815000 
X150151816000 
» 1 50 l 5l9 iyQ0Q 



40 
41 
42 



43 
44 
45 
46 
47 
•8 
49 
50 



GETNEWADORESSCi); 

RC(RDTOG); 

IF AD D RE SSI NGCUMP L ETE 



THE N 



S!150 



BEGIN 

finishiuicktest<true)j <i0 xit; 
end; 



REED(RDTOG); 
GO KlNlKREEO; 

end; 



XI 50 
X150 

an 50 



151818000 
151819000 
151 9 20000 



XISO 

asiso 

iitlSO 



151821000 
151822000 
151823000 



151824000 
151825000 
15 1 826000 



52 
53 
54 
55 
56 



XITI 



END OF auICKTIST ROUTINES 

• » * ♦ ♦ **♦»»** » » » * * * • ♦ » #:*■* ****** ** *. ■» » * * * ♦ * * * * * 
nrcnitoc cirvjroCrTf-CT! 



%**** 

PROCEDURE REVERSETEST; 
BEGIN 
INTEGER I^J; 



LABEL REVL0OP#C0NTINUE*XIt; 

X 

IF MAINT THEN 



Xl50l5l827000 
X15015182»000 

*■> « *** *f * * » * * * * ****** t» 51829000 

X150151830000 
X150151831000 
X150l5ie32000 
X 150 151 83 3000 
X150151834000 
»1S0151835QOO 



J? 



• • 



^ 



9 

10 

11 

12 

13" 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 



29 
2« 



27 
28 



29 

M 



31 

32 

U 

34 

35 

36 

37" 

38 

39 

40 



41 
42 
«3 



45 
46 
»7 
•8 



49 
SO 



51 
52 

53 
54 

95 
56 
57 



BEGIN 
FIl.EADDRJ«JAri/0]; 



*lb0l5 
ai 1 50 1 5 



end; 
getnewaodressca); 

DACO » Q ]i»nACQ 1 1 1 t»D A CQ »2 3 1 »F iLLAnnR ; 



DACO»3]jaDACW0]J = DA[lMJ«*DACl*2]:sDA[l'3Jls-i; 

w(0); 

R£VLnQP« . 



X15015 
X15015 
X15Q15 



XISOIS 
X15015 

jjiaois 



stopcheck; 
getnewaooress(o)) 

IF A D DR FSSlNfiCQ WP LF TC 



TH E N 



X15015 
X15015 
in 15015 



BEGIN 

FOR I»sO STEP I UNTIL 1 

IF DAlIiJI GEO n THFN fi 



DO FOR J»=0 

continue; - 



STEM 1 UNTIL 3 OQ 



X15015 
X15015 
%15015 



C QNT iNUEl 



GO xit; 
end; 



WCWRTOG); 

WC(WRTOG); 

REEnCBDTOG); 



X15015 
X15015 

Xn0l5 



XI T I 



RCCR0T06)) 

GO REVLOOPI 

END OF REVFRStTEST ROUTINE t 



XlbOlS 
X15015 



%*** 



**************************** 



X15015 
* 15015 
X15015 



******************************* 



PROCEDURE LONGTESTi 
BEGIN 



******* **5 
%lb0l5 
as 150 15 



LABEL STAR TLONGlOOP, LONGER I tE, STAR TLONGRE AD, L0N6RE AD, MAKE SWITCH, 5 

XIT; X15015 

DEFINE ftn^RFAl, (REFD)»I Xl'SQ l? 



PROCEDURE finIshlcngtest(reed);value REEo;BoaiEAN reed; 

BZ2JM 



IF reed then BE6I 

BEG I 

IF LQNGR AND SWTT 



N countup 

N COUNTUP 
CHER AND 



CR0T0Q);RC(RDT0G 
(wRT0G3;rtCCwRT0G 

NOT Blcjumpcount 



);end Else 
);£Na; 
) then 



.....5 

X15015 

:tl5Ql5 



X15015 
X1S015 
X 150 15 



IF NTH»ENTIER(SEGS MOD DELTA) G£Q DEuT A-LDELT A THEN Xl50l5 

BEGIN X15015 

SWITCHER;sFALSE; M2u2xHD; SETIOSUE(IOD[NT23*30xNTl)JXlbOl5 



DAtO»0]l»EN 
I0(2«RD#NT2 

End; 



DADDR-NTl 
);iO(**RO 



;M0V£C3#0AE0»0U 
*NT2^;S£TI0SI2E( 



UAtO»l3); 
100CNT2J*OL08UF 



switcher««»false; 

end; 



X15015 

flthj; 5 

^1 501 5 



X15015 
XlbOlS 
5 



ENOADOR»sENDAOOR-(ir LOnQR THEN 29 ELSE!); 
JUMPOFFl«i; 

getnekaodress(4}; 

daco#o]i»fileaddr; 

MOVE{3,DA[O,0],DA[O,n); 
STARTLONGLOOPt [ 



X15Q15 
XI 50 15 
X1501S 



X15015 

xibois 

X15015 



wcwrtoq); 
longwritei 
stopcheck; 



GETNEWADDRESSCn; 

WC(hRTOG); 

IF SWITCHER THEN GO STARTlQNGHLAD; 



XX5015 
X15015 
XI 50 15 



WCWRTOG); 

60 longwrite; 
startlongreadi 



X15015 

X15015 

'X15015 



X15015 

X15015 
X15015 



836000 
837000 
9380-QO- 



839000 
8/»0000 



842000 
843000 
^44000 



846000 
847000 



849000 
850000 
851000- 



852000 
853000 
55-4000 



855000 
855100 
85600fl- 



857000 
858000 
8 59000 - 



860000 

861000 
ilAZ GOO 



863000 
864000 
864100 



864200 
864300 

864400 



864500 

864600 
86 4700 



864800 
864900 
865000 



865100 
865200 
865300 



865400 
865500 
865600 



866000 
867000 
866000 



869000 
870000 
871000 



872000 
873000 

er»ooo 

875000 
876000 
877000 



878000 
879000 
880000 



h 



1 

2 

3 
4 
5 
6 
V 
8 
9 
10 
11 
12 



13 



16 
17 
18 



19 
20 
21 



22 
23 
24 



2S 
26 



27 
28 
29 



30 

31 " 

32 

33 

34 

35 

36 



37 
38 
39 



41 
42 
43 
44 
45 
«6 
♦7 
V 



B2 
53 



54 



55 

56 



FlNISHLONGTESl(FALSt); 
REED(RDTOG); 
GETNEWAnnRESSCn? 



IF AODRESSINGCCMPLETE 
REEO.CHOTOG); 
lONGREAPt 



OR SWITCHER THEN GO MAKESWITCH; 



X150 

X150 

JOhSl 



stopcheck; 
getnewaddbesscd; 

R CC RDTO fi); 



»150 

X150 

Xiao 



IF AODRESSINGGOMPLETE 
MAKESWITCH* 
BFGIN 



X150 
X150 



OR SWITCHER THEN 



wrt0g»=rdt0g-2; 
finishlongtestctrue); 

IF AnORESSlNGrUMPI FTE 



X150 

xisn 



ThFlM tin xit; 



X150 



60 TO STARTl.ONSUdOP^ 

end; 
r eedcrdtqg)! 



X150 
X150 
XI 50 



GO longread; :ti50 

END OF LQNGTEST ROUTINE; X150 

***** ii ***iH,l,*,i,tn,l!**1i*it*i,*i'k*i,*i,*i,*l,i,**-it******ir*1t*i,*i,-i,*ii* 



xitj 

X *** *********** **•»»*<>■ 



PROCEDURE F08WARDTEST; 

BEGIN 
L ABEL LODPl.STARTRDl QQP.LQQP2rFlNlSHUP, XlT ; 



X150 
XlbO 
*150 



X 
IF 



MAINT 
BiMJl 



THEN 



X150 
XliO 
X150 



FILEADDR««JAEO^C]; 

JUMPOFFI«JACO#U; 

GETNFWAOnRFSSU^l 



IF TEST'l 

END 
FLSE 



THEN FINDGOUDMiiPATTERNCFILEADDR); 



X150 
X150 
X15Q 



GETNEWADDRESS(4); 
IF WRT AND NOT RO THEN 
MJkllL 



X150 

X150 

JUJSlQ 



LOOPn 



DAtO»0]»sDAtCl»l]: 
W(0); 



X150 
%lbO 
X15Q 



iFlLEADDRi 



stopcheck; 

getnewaddressc2); 

wc(wrtoQ); 



X150 
X150 
^1 50 



IF aodressingcomplete 
wcwrtog); 

GO LOOPi; 



then go staRtrdloop; 



X150 
Xt50 
X150 



STARTROLOOPf 

AODRESSlNSCOMPLETEt'FALSC; 
COUNTUPCWRTHRi; -_ 



XlbO 
XlbO 
%lbQ 



X150 

X150 

XI 50 



WCCWRTOG); 

COUNT«aO; 

IF MAINT THEN 



XISO 
X150 
X150 



BEGIN 
riWEA0DRHr4A{0#0]; 

juMPQFri»jACo»n; 



END Else FlLEAD0R»=8EGll\AD0Ri 

getnewaddress(^); 

end; 



ii5^ 

XI 50 

XI so 



DACO#23l*OAtO*33iariLEADDR; 
RE£D(2); 

st opch ec k ; 



X150 
XlbO 

X15Q 



XiSQ 
X150 



881000 
884000 
865000 



886000 
887000 
8 88 000 



889000 
890000 
891000 



892000 
893000 
A96000 



895000 
896000 
899000 



900000 
901000 
902000. 



903000 
904000 
^050 - 



906000 
907000 
90 6000 



909000 
910000 
,911000 



912000 
913000 
914000 



915000 
916000 
91700X1- 



918000 
919000 
920000 



921000 
922000 
9a3QQ0 



924000 
925000 
9 26000 



927000 
926000 
929000 



9 30000 
931000 
932Q0Q 



933000 
934000 
935000 



936000 
937000 
93B000 



939000 
940000 
941000 



942000 
943000 
9 44 000 



• • 



>r 



9 
10 
11 
12 



13 

14 
15 
16 
17 
18 
19 
20 
21 



22 
23 



24 

2G 



26 
27 
28 
29 

30 
31 



32 
33 
34 
35 
36 



GETNEWADDRESSC3); 

IF addressingcdmplete: then 

HEliTN HCC?).»Gn X, IT UNI,)* 



REEDO); 



S15015 



LOOPSt 



stopcheck; 



GETNEWADDRESSC3)i 

RC(RDTOG); 

IF AnnRESSlNGCOMPlETE 



X 15015 
X15015 
^15015 



THEN fill FlMSHuei 



X15015 
X15U15 



REEDCROTOG)! 

SO loops; 

F INTSHUPI 



X15015 
X15015 
XISOIS 



JOli. 



COUNTUP(RDTOG); 
RCCROTOG); 
-EN Q OF FQHWAR D TFST R UUTji U ; 



I ♦ * ♦* ♦ * * * * **************** )(r * * * * 

PROCEDURE RUNATEST(TEST)JVAl.UE TESTi INTEGER TEST! 

Maijy . _^^ 



X15015 
X15015 
XlbOl'a 



A***********,^** *********** *****«rA******A*5 



X15015 
X1SQ15 



FORMAT 

DASHC7 

E:ur("E 



U 'SI2>" — DISK HUUEL ".A2*" (">I2>" MS)"3# 



N0DOf('*TEST''#I3*" 

WRTUOCKf CTEST'Sia 

ERRO RrflA." SFGI4FNTS FAILED TrST**). 



NOT PERFOHMEO (DISK CONFLICT)"), 
"NOT PEHFORMEO ( WSI TE-'iOCK)"). 



XlbOlS 
X15015 
X150 15 



X15015 
X15015 
I 15 Q 15 



SEGSFC 

ETESTC 

-JMEGER-l 



16," SEGMENT 

"end of test 
»r fpe at ; 



S TESTF.D")* 
"»I2»" HtSULTS")J 



X15015 
XlbOlS 
X15Q15 



REAL JUNK 
BOOLEAN S 
I******** 



; 

toptog; 

************ 



PROCEDURE 

BEGIN 
SAV ^ ARRAV BC0»RSI^E3 J 



*.* * * * * » *.* ********************** 



ExpAND(A#RSiZE); val^JE rsize; REAL rSize; array 



X15015 
X15015 

****** ****»***§ 



A[03; 5 

xisois 

X15m 5 



DEFINE 
FTC 

IM 



*sii«si+3;di 

IF SB THEN D 



t«Di+5;SKlP 
Sis SET ELaE 



3DB1 
DS:aRESET;SKlP SB)* 



I 



X15015 
X 150 15 
X15015 



V45000 
iL4ZaCL0. 



948000 
949000 
-&50000 



9bl000 
952000 

5-5:aj00-a.. 



954000 
955000 
156000 



957000 
9580C0 



960000 
961000 
162000- 



963000 
964000 
i'..6b.00Q. 



966000 
967000 
96 8000. 



969000 
970000 
9Z-ULafi- 



972000 
973000 

97<t000 



975000 

976000 
977000 



978000 
979000 
980000 



37 
38 
39 
40 
41 
42 



C T F«S 1 : 3 s I + 5; D I : =0 1 + j; SM P 
15(IF SB THEN DSI=5eT El^JE 



3Sb; 

Qi'JsRESETJSKtP S8)«; 



»» », *. » » »» » »»»», »m»» $ t »»»» »»** » » 



STREAM PROCEDURE CHAnQEVECTORSC A* B ) ; 

BEGIN LOCAL MOMAtMOMBl 
STIilLOC AiDIt^LBC MOMAfFTCl 



t » ,« » « ,t I I, « », » » »,,«,,§,«, »i t i * t,l », >, ,« » ,», ■ !,«,», 



X15015 
X15015 



981000 
982000 
MIMO. 



X15015 
X15015 
X15015 



984000 
985000 
98600 



sii.Loc b;oi:=loc momb;ktc; 
snaLOc n'.omb;oi s'LOc aktf; 
sitsL oc MO MAj p na L oc b;ctf/ 



X15015 
X15015 
Xl bOl b 



987000 
988000 
9 . 89000 



SltsUOe B?DIt«MOMAIDSt«WOSf 

siiwioc A;oi««MtM8;ost«wDs; 

END OF CHANGEVECTQRSJ 



XI 50 15 
X 150 15 
X 1 50 1 5 



990000 
991000 
992000 



46 

47 



changeve:ctors(a,b); 

ENDi. 



.t«*«5 

X15015 



LINUji... . —. ^ „— 

X******* ********** *'***'* *:*'* *.***«** *.* ****** * * *.**"* *.* *:* ****** *******«*5 



993000 
994000 
995000 



«9 
SO 



LABEt L00F>QfVITUP#XlT*ABQRT'CONFLlCT; 



996000 
997000 
998QQQ 



53 



S6 



COMMENT 

THE FOLLOWING CODE SETS UP THO^E VARIABLES WHICH wiLL 

NEED REINITIALIZING BETWELIM EXECUTIONS UF THE TESTJ 



X150151999000 
NOT X150152000000 
„ X150152001000 



MAlNTtaTESTwl 
W RTt-TEST Q FO 



OR 3 < TEST < e; 

2 AND TFST MOD lO NCQ 31 



X150152002000 
X150152003000 
X15 15 20Q# 0Q 



>r 



10 

11 

12 
13 
14 

hb 

|ia 

18 



19 
20 



22 



24 
25 



27 

28 

29 

30 

31 " 

32 

33 

34 

35 



36 

37' 



39 



41 
42 



47 



SO 



52 

S3 



IF 



CONFLICT > 



NOT MAINT 
BEGIN 



AND WRT AND NUKRT THLN 



WRITECOUTFI*0ASH>; 
WRITEC0UTri*N000F#TE3TL); 
WRITF(nUTFI.nASHU 



XlbOl52005000 
X150152006000 

i>i1,50l52U06lOO 



IE 



GO abort; 
end; 

WRT AND WRTU nC^ 



*IS0152007000 
Xl5Ol52O0e0O0 



JH£J1 



if not maint then 
givitup* begin 
write(qutfi#dash); 



X150152010000 
»1501520UOOO 
il {15Ol52 m 2 n Q0. 



WRlTE(OUTFIi>WRTLOCKF»TESTU); 

writecoutfI'DaSh); 

GO abort; 



X150152013000 
X 150 1520 1 4000 

atisoisgoisoon 



END 
ELSE 
_ BEGIN 



a!lb(Jl52016000 
X150152U17000 
X l5Ol ? 2Oia Q0Q . 



X150152019000 
X15Q152020000 
iH 50l5 2Q2 100Q 



I»«jAt0*0]; 3(150152022000 

WHILE TWOT((I DIV lOOOOJ MOD 100* LOCKWORD) DO I»=I*10000; 52023000 
IF (I niV lO0OO)xl0OOU gTr ENOAnriR thtn an fliViTUP; %^bO\ ^:>o?a( 



END! 

IF cntu»testarrayctestinx3) 

BEGIN . 



tOOO 



< THEN 



ABREVlsFALSE; 
IGN0RERR0RSJ=NClT(N0IS£0NERRURjsBL(NTUC2:l])); 

END ^ 



Xlb0i52025000 
X ISO 152026000 
X15ni5202700Q 



ELSE 

BEGIN 
I6NnRFRRnRStaNOT.SFnNERRI3R {>FA LSi:; 



X150152028000 
%150152029000 
X150152030000 



ABREV««BL(NTl. 1:2:1]); 

end; 

REVt«4 < TEST < \Z AND T£.!iT 



XI 50 1520 3 1 000 
X150152032000 
1150152033000 



t^w ?gi; 



SHlFlaTEST*6 OR TEST*/ 
REPEATl«NTl«efiF]; 
nELAYlffNTUIiaiglJ _ 



OR TESTsiO OR TEST»li; 



X150152034000 
X150152U35000 
X150l5203ft00.a- 



R0»«BLCNTl.U}n); 
N0DATAJ»BL(NT1).C3I 13; 
IF TFST MOD 10 a 3 THEN 



IF NOWRT THEN 

IF NOT CNOISEONERROR 
fiQ CflNFl IHT? 



X15G152037000 
X15O152O38O0O 
il5Ql52Q39000 
X150152039100 
X150152039200 
X150l520393nn 



OR ignoRerrqrs or abrev or 



L0NG««TEST»2 OR LONGR » -TEiT« !<!> 

KWlKJsTEST > 12; 

BUFFLTHflF LONRR THFIN 900 FLSL IF LUNG THEN u5 f-^Sf 



X150152039400 
NODATA) THEN52039500 



IF MAiNt THEN 12 ELSE 
IF OLDBUFFLTH NE« BUFfLTH THEN 
BEGIN . '^^^_ ^__ 



Xlb0l52040000 
Xlbyi52041000 
X150i520420QQ 



If KWIK THEN 180 ELSE 3o; 



FOR lt»0 STEP 1 UNTIL 1 OO 
FOR IlsO STEP I UNTIL 3 UQ 
EXPANncSHTFTBUFFrRUFFlTH)/ 



X1501 52 043000 
X1S0152044000 
X150l520^it'^000 



OLOBUFFLtHJseUFFLTH' 
ENDJ 
DELTA »*1F L086 THEN ( ( BUFFLTH 



lxpanoccumpahebuffci#*]*bufflth); 52046000 

LxPAN0CDISK[i#*],6UFFLTH); Xl 50 152047000 
^ . ai50l52U4fl000 



tSET 



FOR i;»0 STEP I UNTIL 2 DO 

DLTACI]«« 
gmit«omit or not TUNEUP 



* 29) DIV 3Qi ♦ LDFLTA ELSE 6; 



X15G152049000 
X 150 I 52050000 
I 1 9 Q1 520§ 1 Q0 Q 



fPOP OMIT 



IF SOELTA > THEN SDELTA ELSE 



X150lb20b4000 
X150152055000 
X150l520b6oOQ 



IF REV THFN 



X150152057000 
X150152058000 
X»0 1 5205900 



M 

3 
4 

si 



4S 
46 
47 ( 
48 
49 
50 ( 

52 
53 i 
54 
55 
56 ' 
57 



>T 



IQD[Q3» 



SZCn DIV (IF KORTlTMlLL THEN 3 ilLSE 6) 
ELSE 1+3; 
(CQRE<^DnR (DT$K , COfQ3 , )H , tJU , FKl.TmP»3» M Q H 



*150152059200 



(IMCCBUFFLTH + 29J DIV 30 + 512 ) ) C 16 I 33 » 15 UT INU t 3 5 43 1 5 3; 52062000 
ilOD[OJ&COHEADOR(OISKClA01)tCTC]; * 150 152063000 

!inDrQ]«nnrtFADaRC0T5K[ii*QTHCT{:. i &u ^aM^m ; ii5ai'i?06anQn 



lOOCUi 



iaDC3]txlOOC2]&CQREADURCOISK[3*0] JtCTC]; 

JUNKJ=COREADnR(RES); 

FQR I»''Q ST F: P 1 UNTIL 3 Q Q 



L0CATI0Ncn»B(JUNK + n&UNlT[l2J42!6Ult2» 47113; 
IF NOT LONG« THEN 

GETPATFRN(aUFFLTH»l«SHIFTBUFF>V^RT>KWI K); 



3;150152065000 
S;i50l52066000 



10 

11 
12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

2« 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

36 

36 

37 ~ 



38 
39 
40 



41 
42 
43 



44 
45 
46 
47 
48 
49 
SO 
51 
S2 
M 
M 
5S 
56 



IF 



NOT SHIF OR LQNGR THEN 

BEGIN 

MOVECBUFFLTH>SHlFTBUFF/DlSKCO>n}/ 



"M0VE(BUFFLTH,SHiFTBUFF*DlSK[l*l3); 
IF (NOT MA I NT) OR WRT THEN 
BEGIN 



*150l52068000 
«160i5206V000 

ii 50 i5 2 0ZoaaQ-, 

Jlil50l520nOCO 

:tl50l52072000 
:tl50l 52073000 



MOVeCBUFFlTH^SHIFTBUKF'CUMPaHEBUFFCO' U ); 
MOVEtBUFFLTH,SHlFTBuFF>CUMPAHEBuFFClM] )) 

_EMi „_„__ 



*150l52074000 
X150152075000 

X150152077000 
X150152078000 
!^150l 52i>19QM. 



ENDJ X150152080000 

SZtl03J«"25"; S2Cin»*"58"i X 150 i52080i00 

I nGBllFFFRrnial nfiBltFFFRrn&QC2tg»1 1A1f9>4:i;3UTFfTMPt4?>6 7t ^1 50 ^ SPQfi ^ flOO 

t nnawcrcO r O ■t t tfO l^r Al r T r Uf r i\ ^ \ 1 uf4C/^.c;^MLl<->nn/^ 



LOGBUFFERC23isOCTAL(TlNlE(0)); 
LaGBUFFER[3]:»BEGlNA0DR&(StGS + l )[3:2b:20]> 
LQGBU.FFFRf4H = lCCQUNT? ■. 



L QQ P t 



LOGBUFFERtSjmERRORSJ 
LINKITUP; 



ii;i50l52062000 
Sl50i520e3000 
XU3iUi2-D-fl4Il(LQ... 



X150152U85000 
X150152086000 
%lhQl ^2087000 



*150152088000 
COMMENT BEGINNING OF TEST EXEC^T lUN-RE I URN h£RE TO START AGAIN; 52089000 

»150l'i?0VQnQri 



WRITE(OUTFlC08L3)i 
ROTOQJsa; WRTOGSsO; 
WRITE(OUTFn; 



X150152091000 
%150l52092000 
X15015P093Q QQ 



CLEAR(0UT8UFFER*9); a;15Ql52094000 

TESTDESCRlPTlON(TtST'MAINT'k<Rl'REV*ShIF,LCNG#LONGR#QUTBUFF£R*XlbOl520<i500Q 

6UFF L TH)/ ^15015PQ96Q00 



WRlTE(OUTFI*9*OUTBUFFERt*3 3; 

WRITE(OUTFl*OASH)i 

WRITE(OiJTFlrBBLI); 



WRITE(OuTFltDBL3»EUF'8EGlNADDR DIV 

IF FORTYI^'ILL THEN "IB" LLSE 
FRROR»aCQUNT»=SCtsQj 



1000000* 
'1 "*20xQKTyPE); 



X150152097000 
X150152098000 
Xl 50 l52 qV 90QQ 



COMPAREDATA«sAD0«eSSlNGCOMPLETtiaFAiSEJ 
RESC03»»l0MASK;MQVE(3#REStO3*ReScl3); 

sfa«»filEaddr»«if rev then enuaddr Else beginaoor; 



stopcheck; 
sset omitsqmit or imgt tuneup 

etm»=time(1); iqti=time(3); 



X150152100000 

)tl50l52l01000 

%150 l 52tQ200Q 
*1501521C3000 
X150152104000 
atl50l52l05000 



SPQP OMIT 

if rev then 
reverseTest 



SK15U152106000 
X150152106050 



ELSE 

IF LONG THEM 
LONGTEST 



Sil50l52l06i50 
Xl50i52l 07000 
X150 152 108000 



ELSE 

IF KWIK THEN 
QUICKTEST 



«160l52iy9000 

^.150152110000 
%15015211100 



X15O152112000 
X150152113000 
X150152114000 



J? 



> 



XIT 



ELSE 
FOKWAHDTEST; 



^6150 



152115000 
152116000 
15^ U 7 QQ 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

K 

|16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

4« 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 ■'■ 

57 



SiJET 



OMIT-OMI 

IF MESSP 

6EGIN 



T OR NCT DEBUG 
NEQ THEN 



%150 
XlbO 



152118000 
152119000 
1 5 2 1gOO0Q 



WF?ITE(OUTFI[DBL]*MtSSP,MtiidAGEL*]); 
MLSSP:=0; 

fnq ; 



ifl50l521iil000 
*l50i52l2200C 
ill'jOl^SlgaoOO. 



tPOP OMIT 

IF STOPPER NEQ THEN 
RF» TN 



»150 
XI 50 
ail 50 152 



15212^000 

1S2 125000 

52126000 



FOR i:=0 STEP 1 UNTIL 3 DO % 150 152 12700C 

BEGIN JUNK:sLOCATIQNCl].[CFj;wAiTCjljNK*iOMAbK);ENL; il 50 152 1<J8000 

-SJ[ QPTQG»°THIF; , , , ^ 15Ul52l290flXL 



REPEA 
STOPP 



T»so; 

ER«aREAL(ST0PPER»3)^ 



*150 
*150 
3il 



IF LONG THEN ENDADDR $ =ENDmDDN+ (IF LUiM'siR ThtN 29 ELSE lU 
IF ERROR > THEN 
IF PAGE TH^:N 



itl')0l52 



152130000 
152131000 
52132000 



XISO 
%150 



A^JLJ^ 



WRITEC0UTFUPAGE3 ) 
ELSE WRITC(CUTFI,STAR); 
DMITaOMTT OR NIHT TUMFllP 



iiil 50 i^ 



152133000 
152134000 
521 .i'^OOt 



>000 



*150 
X150 



write(Outfi*<"ngwait="'I8>»nowait;; 

NOWAIT»=0; 

rtRlTE ( O U TFl»<"F lAPS^ ;D TTMF s",F l Q .l ," src UNl 3S">, 



152136000 
152137000 
152137050 



X150 
SK150 
Jtl SO 



152137100 
152137200 
1521 37 300. 



(TIME(I) - ETM)/60); 

WRITE(OUTFl,<'»I/0 TiME s",Fl0.1," SEC0NDS">, 

(TIMFCB) • Ta T)/6U M 



X150 
X150 
XI SO 



152137400 
152137500 
521371 



1^^ 



L6XKL 



SfQP 



OMIT 

WRITECOU 

WR I T FCQU 



TFWSEGSF*SEGCOU.'MT);StGCOlNT:=0; 
TFUERRnRFrERKQRDJ ^ , 



XISO 
X150 

a; 150 



152137650 
152138000 

52139000 



li2^ 



WRITECOUTFl»ETEST*TESTL); 

IF Repeat»*repeat-i > Then go loopi 



X150 
X150 



152UOO00 
152U1000 
152142000 



L0G6UFFER[n»=LCGBUFFERClJ&0U'2J 1 U 3 [ 9 : 4!J '• 3 ] ; 
L0GBUFFER[2]JsQCTAL(TlME(0ni 
LQG BUFFFR[4 ] ;- i nC UUNT ; 



SlbO 
X150 



152143000 
152144000 
152145000 



L0GBUFFERC5]ti 
LINKITUP; 



^errors; 



X150 
XI 50 
X15Q 



152146000 
152147000 
153146000 



ABURTJ 



IF OUTSWITCH NEQ 1 
IF BKSTQP PE R? AN O 



TriF.N r^RlTECOuTFUPAGEl )' 

STQPTQG THEN 



X150 
XlbO 
X.lbO 



152149000 
I52lb0000 

152 li?1 Q 



BEGIN DATIME?6a EX IT; END i 

stoptogi»false; 

END OF RUNATESTf 



XI 50 
X150 
X150 



152152000 
152153000 
152154000 



S^ET 0MIT=QMIT 
SPOP OMIT 



OR NOT DEBUG 



X***^nnr*******^^**»•^n^****^n^*^^*^^•*^^*^llt*^l••1)r•»^t^[*^n^***•*1^•*•^^»***^^*•» 



***** 



54020100 

54020700 

*54360000 



PROCEDURE setupmaint; 

COMMENT SETS UP JAC*^*3, JACQ**3 CONTAINS APDREgS 



54370000 
54170005 
54 3 7 001 Q 



PAIRS FOR FORWARU ADUHESblNQ. JaCI#*] CONTAINS 
ADDRESS PAIRS FUH REVERSE ADDRESSING; 



54370015 
54370020 
54370025 



BEGIN 

INTEGER EUj.8SUjiESUj»A1#A2*A3, I* EA»8 A#RBA, feAI 

L A BFL WR APUP/CQI LECT/ ■. 



54380000 
54390000 
54400000 



^ 



BA:sMAINTAOOR(-BLGINAUOR); 
FEA » gM AI NTAD0R(' £. N D AUUR 3 J 



RBA»»MAINTAD0RC-BEGISA0DR); 



544iJ0000 
5 4 4 3QXW)- 



54440000 
54450000 
5 446 Q000, 



BSU»=C((BA 
ESU«sCC(LA 
EUlsBA DlV 



DIV lOOOOJMQD 
OIV 10000)MQD 

iiflonoooi 



100) DIV 8); 

ioojdiv 8); 



544/UOOO 
54480000 
54^^0000 



7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 



25 
26 



27 
28 



29 
10 



]1 
J2 
33 
34 
35 
36 



39 
40 
41 
42 
43 



45 
46 
47 
•8 



49 
50 



51 
52 
53 
54 
55 
56 



IF SEGS USS 40000 OR NOT FQRTYMliL THEN 
BEGIN 
JiirQ»nHgRA; JAfQ» ii;»F{- a; 



54500000 
54510000 
.5a5200flX)- 



JACWO] s=ea; 

END ELSE 

BE G I N _ 



jaci«u;srba; 



54530000 
54540000 
54 ^)50000 - 



IF Alts<1000000xEU+80000xBSU+40000) GTR BA THEN 54560000 

BEGIN 54570000 
JArQ.Q3t»BA; JAfn. t n»BA*.^09qq; S^SRQpnn 



END ELiE 
BEGIN 
JASJLtSXXL 



■tJA^ Jf\iQf]}'- = Alf'i999,9l 



545V000C 
54600000 



IF A2:9C 1000000x£U + 800GdxE3U + 39<^99) uSS 

T HEN - : : 



EA 



54620000 

54630000 

-5 4640 000-. 



BEGJIN 

J A [ 1 , J : = c .w 

E MJ E L^E 



JaC I > 1 J :=cA-3y<^y9; 



BEGIN 



54050000 
5i<6oUC0C 

-SAO-i-OXiXlO.. 



JAtl/.OJ!aEA> JA[l>i3!aA2-39999i 



546y0000 
54690000 
54 /0 00011.. 



Ai:=Ai+40000' A<:J=A<i-40oOO> 

IF Al GTR LA THcN GG Wi-iAPUP LLSe 

FOR I !-2 SIjlH 2 ^rilLE FrtUE Cu 



54710000 
54/20000 
547J0Q 0Q 



BEGIN 



IF Al+80000 GTR EA THEN GO COLLECT^ 
JACO^MigAi/ JACo^I+13 rgAn-39999J 



JA[l,n!=A2; JAtl>I + l]: = A2 -39999; 
Al :=Ai + dOOOU; 

A2:=A2-80Q0^; 



54/40000 
54/50000 
54/60000 



54 ('70000 
54('80000 
54790000 



COLLECT; 



E^Oi 

IF EA GTR A3' 



i(lOO0Q0Ox£U-t.e00OQx£Sut39999) THEN 



54800000 
54810000 
54820000 



BEGIN 

jA[0,n: 

END ELSE 



:Ai; JaC0,T+1 ] J»A3j 



54830000 
54840000 
54850000 



BEGIN 

end; 



JACCiUsAi; JACO*I + U I'FEa; 



(lOOOOOOxEu+aOOOOxBoU+40000) GTR BA THEN 
JAC1W + 1H-A3; ™„™___ 



IF A3; 
BEGIN 

jA[l^n;=A2i 



54860000 
54870000 
54660000 



END ELSE 
BEGIN 

jAtl^J3»»A2f jaci*hi3>»rba; 



54890000 
54900000 
54910000 



54920000 . 

54V30000 

54940000 



end; 



end; 

WRAPUP' 



54950000 

54960000 
549/0000 



jA[o#u«i+23i«jA[i*n«s-i; 
hev»«false; 



end; 



54960000 
54990000 
55000000 



3 



:MAINr!=HEV5aL0Nti: = bWITCHER 
i=ABRE\/;sl(.iNgfilr,KflQrta.-:aiV(.lL'i(:,.Ut\ik.RHOR>aFAl.a(-.,? 



WRT»aSHIFJ5!( 
COMPARFDATA 



**************** 
JsAIJdRESSINGCOMP 



********* 
L£T£J= 

aoiua 



55010000 
55011000 
5 5 1 20 00 



SFAiaBUFFiT 

S3ET OMIT-OMIT OR NO 

NQWAIT M 



HI»JUMPOFF J«JUMPC0UNT:» 
T TUNEUP 



X1501 
X1501 



55013000 
55013040 
55013050 



5 
6 
7 
8 
9 
10 
11 
12 
13 
14 

|16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

*3 

44 

45 

46 

47 

•8 

49 

50 

51 

52 

53 

54 

55 

56 

6Z. 



$HOP 

SSET 



OMIT 
0MIT=UMIT 

Mfc:ssp 



OR NOT UEBUG 
^JXi- 



»150i55013060 

55013100 

5 5OU2O Q 



»POP OMIT 

WRT06I»0> 
cnMMENTt THE ABHWF STATEMENTS ARF TNClunm Tfl T M'^URf 



55013300 
55014000 
5*1 15000 



THAT ALL VARIABLES IN THib BLOCK 
INITIALIZED - THIS IS NECESSARY B 
VARIABLES , OC C UPY Th£ ,,. iAM E HRT LQC 



Af<E PROPlWLY 
tCAUSE THE 

ATIO.NS ,AS 



55OI6OOO 
55017000 
550lfl000 



IF F 
-BZSxl 



AS DO V 
ORTYMIL 

tL . 



ARIBlES local to THE SCAN BLOCK* 

l»«dktype«2 then 



55019000 
55020000 
550 3 0000 



END 



SZCOJr 

S2[53 i- 

ELSE 



:25; SZtl]:s33^ SZt2]: = ^2; 
58; SZ[6]:«H4; SZ[73:=57; 



szta3»*25; 
S2[6] :»99; 



55040000 

*150i55050000 

55060000 



BEGIN 



SZC03I«24; 3Z|:U«*32; SZC23J*44; 
SZcSHaSfti S2t63ia23i S7t?3isS5* 



bZC4 3l»24; 
S2[8a:«99? 



end; 
LOGS 
OLDR 



55070000 
55080000 

> 150 155090000 



UFFERtl]:* -0 & 2[18!'i6»2] & M IX [20 ! 43 « 53 ; 
UFF|„TH» = ia; 



55100000 

55100100 

8,150155100200 



lOCO 
FOR 
IF T 



UNTl« 
TESTIS I 
WnTf TES 



#4#5»6,7 DO 

TjTFSTMASK OR RQMASKi THFN 



55100300 

55130000 

t 150155140000 



BEGIN SETUP 
RUNTESTSt 

FOR TfSTINX 



vaint; go runtlsts; end; 

»=0 STEP 1 UNTIL 63 OQ 



IF NTU*T£STARRAYCT€STlNXJ*REAL<NOT FALSE) THEN 

TESTINX««64 ELSE 
IF N Tltt CFl N&Q TH£ N 



55150000 
55160000 
55170000 



55U0100 
55170200 
55180000 



SPOP OMIT 



RUNATE 
IF NOT DONE 



STCTESTJ=NT1.C2«^S63); 
TOG THEN GO TO KeTQRn; 



55190000 

55190100 

!>;15015520000Q 



end; 
alloonei 



55210000 
OF DISK TEST Qi.QCm»*»$»M$$$**^»»«»»$$4*ifM»»«t«»»#i1i«#$*$»«5iZZ0000 

S52 30000 



IF N 
WRIT 
QATI 



OT FILE 
ECOUTFI 

me; 



OPENED THEN GO EXITi 
[DBL3*D0NETESTS); 



55240000 
55250000 
55 <^< >Q 00 



EXITS END ONLINE 
end; END. LAST 



MAINTENANCE ROUTINES, 55270000 

CARD ON OCRDING TAPE 99999999 

asxQasxQasxaa^xgasxQfeixQaixaasxQasxQasxQesxQaiKQasxQasxQa^x 



IP 



• t 



LABEL OO000O00Oprime:KOO1/'5O98CC tXECbTE. OH JECT/READ; F ILE SUURCTF ILE = SYMaOL/GLMAlNT; END* 



OBJECT /READ 



n 

2 
3 

4 
5 
6 
7 



2( 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
2S 
26 

^^ 

28 
29 

30 

31" 
32 
33 

34 
35 
36 

37"" 

38 

39 

40 

41 

42 



45 
46 
47 
t8 
49 
50 
51 
52 
53 
54 
55 
56 



